Попробовал:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub Document_Open()
Dim F As Word.HeaderFooter, D As Document
Set D = ActiveDocument
' вставляем разрыв раздела в конце документа
With D.Range
.Collapse Direction:=Word.wdCollapseEnd
.InsertBreak Type:=Word.wdSectionBreakNextPage
End With
' перебираем нижние колонтитулы
For Each F In D.Range.Sections.Last.Footers
F.LinkToPrevious = False ' отсоединяем
F.Range.Delete ' очищаем
Next F
End Sub
Если открывать файл напрямую, то в конце док-та добавляется ещё одна страница, у которой нет нижнего колонтитула.
Если же открывать файл из другой программы:
1.
2.
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open("N:\...\rptDog.doc")
WordApp.Visible = True
то в конец добавляются почему-то 2 пустые страницы без нижних колонтитулов.
Если заменить Word.wdCollapseEnd на Word.wdCollapseStart, то, открывая файл напрямую, получаем картину аналогичную первому варианту. Если же открывать файл из другой программы, то одна пустая станица добавляется в начало(нижний колонтитул у неё есть), а другая - в конец документа(эта - без колонтитула).
Может как-то поможет то, что в документе всегда 6 страниц и убрать колонтитул надо на 6-ой?
