Поделиться через


Объект Variables (Word)

Коллекция объектов Variable , представляющих переменные, добавленные в документ или шаблон. Переменные документа используются для сохранения параметров макроса между сеансами макросов.

Замечания

Используйте свойство Variables , чтобы вернуть коллекцию Variables . В следующем примере отображается количество переменных в документе с именем "Sales.doc".

MsgBox Documents("Sales.doc").Variables.Count & " variables"

Используйте метод Add для добавления переменной в документ. В следующем примере в активный документ добавляется переменная документа "Temp" со значением 12.

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

При попытке добавить переменную документа с именем, которое уже существует в коллекции Variables , возникает ошибка. Чтобы избежать этой ошибки, можно перечислить коллекцию перед добавлением новых переменных. Если переменная blue document уже существует в активном документе, в следующем примере устанавливается значение 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

Используйте переменные (Index), где Index — это имя переменной документа или номер индекса, чтобы вернуть один объект Variable . В следующем примере отображается значение переменной temp document в активном документе.

MsgBox ActiveDocument.Variables("Temp").Value

Номер индекса представляет позицию переменной документа в коллекции Variables . Первая переменная, добавленная в коллекцию Variables , — индекс no 1; вторая переменная, добавленная в коллекцию, — индекс номер 2 и т. д. В следующем примере отображается имя первой переменной документа в активном документе.

MsgBox ActiveDocument.Variables(1).Name

Чтобы добавить переменную в шаблон, откройте шаблон как документ с помощью метода OpenAsDocument . В следующем примере имя пользователя (из диалогового окна Параметры ) сохраняется в шаблоне, присоединенном к активному документу.

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

См. также

Справочник по объектной модели Word

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.