Нужен код, чтобы выделить весь текст только нижнего колонтитула текущей страницы

Question

Я пытаюсь выбрать все содержимое текущего нижнего колонтитула страницы перед применением определенного стиля (Footer17) из активного документа.Применение стиля Footer17 без выделения всего текста применяет стиль только к верхней строке нижнего колонтитула.Нижний колонтитул имеет три возврата абзаца, но может быть более трех строк в зависимости от документа.

Я использовал следующий код для удаления LinkToPrevious в рассматриваемом нижнем колонтитуле:

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Selection.HeaderFooter.LinkToPrevious = False

Я попытался Selection.WholeStory, а также попытался установить диапазон, который включает в себя текст только текущего нижнего колонтитула.Но я не могу последовательно выбрать весь текущий нижний колонтитул.

Заранее благодарен за любые советы о том, как это сделать.

Answer 1

Следующий код изменит шрифт нижнего колонтитула для текущего выбора.На самом деле нет необходимости помещать фокус в нижний колонтитул или выбирать содержимое.

Selection.Sections(1).Footers(wdHeaderFooterPrimary).Range.Font.Name = "Footer17"

Для выполнения нескольких действий в одном нижнем колонтитуле имеет смысл иметь объект:

Dim ftr as Word.HeaderFooter
Set ftr = Selection.Sections(1).Footers(wdHeaderFooterPrimary)
ftr.LinkToPrevious = False
ftr.Range.Font.Name = "Footer17"

Обратите внимание, что невозможно изменить содержимое нижнего колонтитула только одной страницы, если только эта страница сама по себе не является Section.Нижние колонтитулы по определению распространяются на весь документ или, если «Ссылка на предыдущий» не активирована, на весь раздел.

Обратите внимание, что в этом коде предполагается, что существует только один тип нижнего колонтитула (нет).Различные опции «Первая страница» или «Четная страница» активированы).