Вставка текста с полями в нижний колонтитул

Максим спрашивает:

Следующий макрос может решить эту задачу:

Sub TextFieldToFooter()
'  Вставка в нижний колонтитул всех разделов документа
'  текста вида "Это мой документ, стр. ## из №"
Dim hfRange As Range 'диапазон колонтитулов
Dim oSection As Section 'объявляем переменную для раздела
For Each oSection In ActiveDocument.Sections
   Set hfRange = oSection.Footers(wdHeaderFooterPrimary).Range
   With hfRange
      .Delete
      .Text = "Это мой документ, стр. "
      .MoveEnd wdCharacter, 1
      .Collapse wdCollapseEnd
      .Fields.Add Range:=hfRange, Type:=wdFieldPage, PreserveFormatting:=False
      .MoveEnd wdCharacter, 1
      .Collapse wdCollapseEnd
      .Text = " из "
      .MoveEnd wdCharacter, 1
      .Collapse wdCollapseEnd
      .Fields.Add Range:=hfRange, Type:=wdFieldNumPages, PreserveFormatting:=False
      .Fields.Update
   End With
Next oSection
ActiveDocument.ActiveWindow.View.ShowFieldCodes = False  'скрываем коды полей
ActiveWindow.View.Type = wdPrintView    'переключаемся в режим Разметка страницы
ActiveWindow.View.Zoom.PageFit = wdPageFitBestFit  'формат по ширине страницы
End Sub

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

Создание макроса из готового кода

Автоматическая запись макроса