'добавить в месте нахождения курсора поле ввода
Selection.FormFields.Add Range:=Selection.Range, Type:=wdFieldFormTextInput
With ActiveDocument.FormFields( 1 ) 'соответствует нажатию правой кнопки на поле и открытию формы Свойства поля
.Name = "MyDateField" 'поле Закладка
.EntryMacro = "" 'поле Выполнить макрос при входе, где указывается имя нужного макроса
.ExitMacro = "" 'поле Выполнить макрос при выходе, где указывается имя нужного макроса
.Enabled = False 'включено ???? что
.OwnHelp = False '????
.HelpText = "" 'кнопка Текст справки
.OwnStatus = False '????
.StatusText = "" '?????
With .TextInput
'Type - поле Тип
'0 - Обычный текст
'1 - Число
'2 - wdDateText, то есть Дата
'3 - Текущая дата
'4 - Текущее время
'5 - Вычесление
'Default - поле Дата по умолчанию
'Format - поле Формат даты
.EditType Type:=wdDateText, Default:="11.01.2010", Format:="DD.MM.YYYY"
.Width =  1  'поле Максимальная длина, то есть ширина поля, имеет ограничение 256 символов
End With
End With
ActiveDocument.FormFields( 1 ).Update 'автообновления поля ... после вставки данных в поля формы поля
Результат_поля = ActiveDocument.FormFields( 1 ).Result

Sub Глобальная_переменная()

If Not ExistVar("Счётчик") Then 'запускаем проверку на наличие переменной "Счётчик" в документе
ActiveDocument.Variables.Add "Счётчик",  0  'если переменной нет, значит создаем её, присваиваем ей значение …
ActiveDocument.Save 'сохранение документа, чтобы пользователь не смог закрыть документ не сохраняя создания счётчика
Else
ActiveDocument.Variables("Счётчик").Value = ActiveDocument.Variables("Счётчик").Value +  1  'если переменная уже существует, то увеличиваем её значение на 1
ActiveDocument.Save 'сохраняем документ сразу после увеличения счётчика, чтобы пользователь не смог закрыть документ не сохраняя изменённое значение счётчика
End If
Количество = ActiveDocument.Variables("Счётчик").Value 'после создания переменной значение Количество = 0

End Sub