Вставка колонтитулов с учётом ориентации страниц

[ikomar]

Для вставки нижних колонтитулов в Word пользуюсь функцией, приведенной в конце поста. До сих пор её вполне хватало, но теперь задача усложнилась - есть довольно много очень объемных документов с разной ориентацией страниц (книжная/альбомная) и необходимо, чтобы при вставке на страницу с альбомной ориентацией колонтитул "растягивался" до её границ. Подскажите, пожалуйста, возможное решение.

Sub TextFieldToFooter()
Dim hfRange As Range 
Dim oSection As Section 
With ActiveDocument.PageSetup
    .OddAndEvenPagesHeaderFooter = False
End With
For Each oSection In ActiveDocument.Sections
   Set hfRange = oSection.Footers(wdHeaderFooterPrimary).Range
   With hfRange
      .Delete
      .Paste
      .Fields.Update
   End With
Next oSection
ActiveDocument.ActiveWindow.View.ShowFieldCodes = False ActiveWindow.View.Type = wdPrintView
End Sub

[ikomar]

Решил проблему.