Public Sub CreateFields()
'Работа с полями
	With ActiveDocument
		'Добавление полей разного типа в начало документа
		Dim myRange As Range
		'Установить автора документа
		' .Name = "Vladimir Billig"
		Set myRange = .Range(Start:=0, End:=0)
		.Paragraphs.Add myRange
		.Paragraphs.Add myRange
		.Paragraphs.Add myRange
		myRange.Move Unit:=wdParagraph, Count:=-3
		.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
		
		'Еще один способ добавления полей на примере
		'добавления поля автора с одновременным изменением автора документа
		myRange.Move Unit:=wdParagraph, Count:=1
		myRange.Select
		.Fields.Add Range:=myRange, Type:=wdFieldEmpty, _
		PreserveFormatting:=False
		Selection.TypeText Text:="Author ""Fooler"""
		
		'Печать полей
		FieldsAnalyse
		'Обновление полей
		.Fields.Update
		FieldsAnalyse
	End With
End Sub