word 宏 更新域 VBA语法

打开一个word文档

 

第一步：定义宏

视图 中找到宏

输入宏名称setValue ，回车后编辑宏的内容如下

Sub setValue()

'

' setValue 宏

'

Dim doc_var As Variable

    For Each doc_var In ActiveDocument.Variables

        doc_var.Delete

    Next

         ActiveDocument.Variables("name").value = "zhangyan"

         ActiveDocument.Variables("address").value = "shanghai"

         ActiveDocument.Variables("id_card").value = "5223467899"

         ActiveDocument.Variables("school").value = "shlg"

End Sub

 

编辑完成后点击执行。

 

第二步：插入域

在word中插入域 =》文档自动化=》 DocVariabl

如果是mac 域名称前面有默认值DOCVARIABLE ，我们定义的域名要拼接在默认值后面

DOCVARIABLE  name

 

address id_card school  同理

 

如果是修改操作，那么修改代码里的值，页面上选中所有的域-》更新域即可

 

 

==========================下面的宏是添加特殊字符，选择框==========================

Sub insert_variable(key, value)

 

    On Error GoTo addValue

    ActiveDocument.Variables.Add Name:=key, value:=value

 

addValue:

    ActiveDocument.Fields.Add Selection.Range, wdFieldEmpty, "DOCVARIABLE " + key

 

End Sub

 

Sub insert_special_char(key)

    On Error GoTo addValue

    ActiveDocument.Variables.Add Name:=key, value:=ChrW("163")

addValue:

    preservedFont = Selection.Font.Name

    Selection.Font.Name = "Wingdings 2"

    ActiveDocument.Fields.Add Selection.Range, wdFieldEmpty, "DOCVARIABLE " + key

    Selection.Font.Name = preservedFont

    Selection.TypeText Text:=" "

End Sub

 

 

Sub add_text()

    'insert_variable "Serve[2]", "{服务方[1]}"

    insert_special_char "xxx[c]"

End Sub