Листинг 15. Добавление полей в документ

Листинг 14. Анализ основных свойств полей

Листинг 13. Добавление полей в документ

Поля

Fields (Field) – это коллекция, которая позволяет работать с полями документа. Одна из особенностей полей состоит в том, что их значения обновляются автоматически в зависимости от изменившихся внешних условий или контекста. В листинге 13 (см. здесь) приведена процедура, которая добавляет в начало документа три поля, задающие автора документа, дату и время.

Public Sub FielsExample() Documents("Doc.doc"). Activate With ActiveDocumentDim myRange As RangeSet myRange =.Range (Start:=.Sections(2).Range.Paragraphs(1).Range.End, _ End:=.Sections(2).Range.Paragraphs(1).Range.End)myRange.Select myRange.Paragraphs.Add myRange.Paragraphs.Add myRange.Paragraphs.Add myRange.Move Unit:=wdParagraph, Count: =-3myRange.Select.Fields.Add Range:=myRange, Type:=wdFieldAuthor myRange.Move Unit: =wdParagraph, Count: =1.Fields.Add Range:=myRange, Type:=wdFieldDate myRange.Move Unit: =wdParagraph, Count: =1.Fields.Add Range:=myRange, Type: =wdFieldTime.Fields.Update End With End Sub

В этой процедуре добавляются три абзаца, а затем три поля. На заключительном этапе запускается метод Update, приводящий к обновлению значений.

В следующем примере (листинг 14 (см. здесь)) анализируются (выводятся на экран) основные свойства объекта Field.

Public Sub FieldsAnalise()‘Анализирует характеристики полей активного документа Dim MyField As Field With ActiveDocument Debug.Print "Число полей - ",.Fields.Count For Each MyField In.Fields With MyField Debug.Print "Код поля - ",.Code, "Вид поля - ",.Kind, _ "Тип поля - ",.Type, "Результат поля - ",.Result End With Next MyFieldEnd WithEnd Sub

Для программного создания полей используется, как обычно, метод Add коллекции Fields, который имеет следующий синтаксис:

Add (Range, Type, Text, PreserveFormatting)

Параметр Range определяет область документа, в которую вставляется поле, Туре – тип поля, из-за разнообразия типов этот параметр имеет около сотни различных значений. Параметр Техt чаще всего используется в тех случаях, когда нужно задать переключатели, определяющие специфику работы поля. Последний параметр PreserveFormatting определяет, будет ли сохраняться форматирование при обновлении значения поля.

Рассмотрим пример программного добавления полей в документ. В листинге 15 (см. здесь) представлен код процедуры, которая добавляет в начало документа три поля, задающие автора документа, дату и время.

Public Sub CreateFlelds() ‘Работа с полямиWith ActiveDocument‘Добавление полей разного типа в начало документаDim myRange As Range‘Установить автора документа.Name = "Vladimir Krotov"Set myRange =.Range(Start:=0, End:=0).Paragraphs.Add myRange.Paragraphs.Add myRange.Paragraphs.Add myRangemyRange.Move Unlt:=wdParagraph, Count:=-3.Fields.Add Range: =myRange, Type:=wdFieldAutnor myRange.Move Unit:=wdParagraph, Count:=1.Fields.Add Range:=myRange, Type:=wdFieldDatemyRange.Move Unlt:=wdParagraph, Count: =1.Fields.Add Range:=myRange, Type:=wdFieldTime‘Еще один способ добавления полей на примере‘добавления поля автора с одновременным изменением автора документаmyRange.Move Unit:=wdParagraph, Count:=1myRange.Select.Fields.Add Range:=myRange, Type:=wdFieldEmpty, _ PreserveFormatting:=FalseSelection.TypeText Text:="Author ""Иванов"""‘Печать полейFieldsAnalyse‘Обновление полей.Fields.UpdateFieldsAnalyse End With End Sub

В этой процедуре добавляется три пустых абзаца в начало документа, а затем добавляется три поля. Потом демонстрируется еще один способ работы с полями, когда вначале задается пустое поле, а потом в нем печатается текст, его определяющий. Конечно, это должен быть разумный текст, определяющий тип поля и его характеристики. Так зачастую работают с полями вручную. Заметьте, что это поле необходимо обновить, чтобы оно отражало значение результата. Печать результатов до обновления и после не позволяет проследить за изменениями значений полей.

Дата добавления: 2014-01-05