Question

Documents (Document) Variables (Variable)

代表作为文档部分保存的变量。文档变量用于在宏操作之间保留宏设置。Variable 对象是 Variables 集合的一个成员。Variables 集合包含了文档或模板中的所有文档变量。

使用 Variable 对象

可用 Variables(index) 返回一个 Variables 对象，其中index 为文档变量名或索引序号。下列示例显示活动文档中文档变量 Temp 的值。

MsgBox ActiveDocument.Variables("Temp").Value

索引序号表示文档变量在 Variables 集合中的位置。最后加入 Variables 集合的变量索引序号为 1，倒数第二个加入集合的变量索引序号为 2，以此类推。下列示例显示活动文档中第一个文档变量的名称。

MsgBox ActiveDocument.Variables(1).Name

可用 Add 方法在文档中添加一个变量。下列示例在活动文档中加入一个名为“Temp”的文档变量，其值为 12。

ActiveDocument.Variables.Add Name:="Temp", Value:="12"

如加入的文档变量名称和 Variables 集合中已有的变量名称相同，则会出错。若要避免此种错误，请在加入新变量之前列举集合。如果 Blue 文档变量已经存在于活动文档中时，下列示例将其值设为 6，否则将其加入文档并赋值为 6。

For Each aVar In ActiveDocument.Variables
 If aVar.Name = "Blue" Then num = aVar.Index
Next aVar
If num = 0 Then
 ActiveDocument.Variables.Add Name:="Blue", Value:=6
Else
 ActiveDocument.Variables(num).Value = 6
End If

说明

只有将合适的变量名插入 DOCVARIABLE 域，文档变量才是可见的。下列示例在活动文档中添加一个名为“Temp”的文档变量，然后插入一个 DOCVARIABLE 域显示该变量的值。

With ActiveDocument
 .Variables.Add Name:="Temp", Value:="12"
 .Fields.Add Range:=Selection.Range, _
 Type:=wdFieldDocVariable, Text:="Temp"
End With
ActiveDocument.ActiveWindow.View.ShowFieldCodes = False

用 OpenAsDocument 方法将模板作为文档打开，可在该模板中添加文档变量。下列示例将“选项”对话框中的用户名保存在附加于活动文档的模板中。

ScreenUpdating = False
With ActiveDocument.AttachedTemplate.OpenAsDocument
 .Variables.Add Name:="UserName", Value:=Application.UserName
 .Close SaveChanges:=wdSaveChanges
End With