Способ хранения и извлечения переменных в документах Word

Как задавать и извлекать значения переменной документа

Следующий пример макроса использует свойство переменные для хранения, а затем извлечь значение строковой переменной с именем «FullName» с текущим документом.

Sub GetSetDocVars()

   Dim fName As String
   fName = "Jeff Smith"
   ' Set contents of variable "fName" in a document using a document
   ' variable called "FullName".
   ActiveDocument.Variables.Add Name:="FullName", Value:=fName
   ' Retrieve the contents of the document variable.
   MsgBox ActiveDocument.Variables("FullName").Value

End Sub

Примечание: Если в документе уже задано имя переменной появляется следующее сообщение об ошибке:

Необходимо удалить имя или просто сбросить значение аргумента.

Удаление переменной документа

Следующий пример макроса использует свойство Variables в первом наборе и получить значение переменной документа и затем удалить переменную из активного документа.

Sub GetSetDeleteDocVars()

   Dim fName As String
   fName = "Jeff Smith"
   ' Set contents of variable "fName" in a document using a document
   ' variable called "FullName."
   ActiveDocument.Variables.Add Name:="FullName", Value:=fName
   ' Retrieve the contents of the document variable.
   MsgBox ActiveDocument.Variables("FullName").Value
   ' Delete the variable.
   ActiveDocument.Variables("FullName").Delete

End Sub

Как извлечь значение переменной документа с помощью поля DocVariable

Следующий пример макроса использует свойство Variables для задания переменной документа. Следующий пример макроса являются действия, чтобы использовать поле DocVariable для извлечения значения в содержимое одного документа.

Sub GetSetDocVars()

   Dim fName As String
   fName = "Jeff Smith"
   ' Set contents of variable "fName" in a document using a document
   ' variable called "FullName."
   ActiveDocument.Variables.Add Name:="FullName", Value:=fName

End Sub

Чтобы использовать поле DocVariable, выполните следующие действия.

1. В меню Вставка щелкните поле.
   
   Примечание. В Microsoft Office Word 2007 выберите в группе текст на вкладке ВставитьЭкспресс-блоки и выберите поле.

2. В списке категории выберите Документ автоматизации.

3. В списке поле выберите DocVariable.

4. В поле Новое имя в разделе свойств полявведите имя переменной документа.
   
   Примечание: Если вы видите Дополнительные свойства поля , а не
   Свойства полянажмите кнопку Скрыть коды.

5. Нажмите кнопку ОК.

Если необходимо сохранить значение между сеансами работы макроса можно хранить значения, используя любой из следующих методов:

• Свойство PrivateProfileString используется для хранения значений в файле настройки закрытого.
  
  Дополнительные сведения о свойстве PrivateProfileString в редакторе Visual Basic нажмите кнопку Справки Microsoft Visual Basic в меню Справка выберите Свойство PrivateProfileString введите в поле помощника Office или мастера ответов, а затем Нажмите кнопку Поиск для просмотра раздела.
  

• Используйте свойство переменные для хранения значений в документе.
  
  Дополнительные сведения о свойстве переменные в редакторе Visual Basic меню Справка выберите команду Справка по Microsoft Visual Basic , введите Свойство Variables в поле помощника Office или мастера ответов и нажмите кнопку поиска Просмотрите раздел.
  

• Использование Visual Basic для приложений операторы Ввода-вывода для записи в текстовый файл (например, написать инструкцию или инструкции Print ).
  
  Дополнительные сведения о записи данных в файлы, в редакторе Visual Basic выберите команду Справка по Microsoft Visual Basic в меню Справка , введите запись данных в файлы в поле помощника Office или мастера ответов и нажмите кнопку поиска Просмотрите раздел.
  

• Использование объекта AutoTextEntry для хранения значений в элемент автотекста.
  Дополнительные сведения об объекте AutoTextEntry в редакторе Visual Basic меню Справка выберите команду Справка по Microsoft Visual Basic , объектом AutoTextEntry введите в поле помощника Office или мастера ответов и нажмите кнопку поиска для просмотра раздела.