Слово VBA для изменения заголовка для одного раздела

Question

Так что в моем документе он копирует некоторые таблицы из Access, вставляет их в Word с помощью:

' Paste into word
wd.ActiveDocument.Sections(i).Range.Select
wd.Selection.Paste

Затем форматирует таблицу, а затем вставляет разрыв раздела в самом конце с помощью:

' Insert a new section
wd.ActiveDocument.Characters.Last.Select
wd.Selection.Collapse
wd.Selection.Range.InsertBreak Type:=wdSectionBreakNextPage

Затем цикл начинается заново: он копирует таблицу из Access и вставляет ее в новый раздел.Я пытаюсь обновить заголовок только для этого нового раздела, но он обновляет все заголовки.

' Write to the header of this section
With wd.ActiveDocument.Sections(i).Headers(wdHeaderFooterPrimary).Range
    .Text = Chr(10) & headerText
    .Font.Size = 18
    .Font.Name = "Tahoma"
    .Font.Bold = True
    .ParagraphFormat.SpaceBefore = 6
    .ParagraphFormat.Alignment = wdAlignParagraphCenter
End With

Предложения о том, что я делаю неправильно?

Answer 1

Непрерывность текста в верхних и нижних колонтитулах контролируется свойством .LinkToPrevious.Это свойство может быть установлено независимо для каждого из трех типов верхнего и нижнего колонтитула.Если для свойства установлено значение «Истина», то текущий верхний / нижний колонтитул наследует текст от предыдущего такого же типа верхнего / нижнего колонтитула.Если для него установлено значение «Ложь», вы можете поместить другой текст в верхний / нижний колонтитул.