需要代码来选择当前页脚的整个文本

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。根据定义，页脚延伸到整个文档，或者，如果未激活“链接到上一个”，则延伸到整个部分。

另请注意，此代码假定只有一种类型的页脚（未激活“不同首页”或“偶数页”选项）。