用于编辑页眉和页脚的 WORD 2010 宏

我只有基本的 VBA 经验，之前的宏经验主要是使用 WORD 2003。录制宏用于获取 GoToFooter（或编辑页脚）菜单命令并允许后续编辑。在 WORD 2010 中，此命令（以及许多其他命令）不会“记录”到宏（但在记录模式下，我确实进入了“编辑页脚”功能）。

对各种 VBS 选项的研究显示了创建页脚以及在宏中进行全局页脚设置更改的几种方法。但是，如果我只是想修改页脚中的公司名称（例如），我找不到在宏子例程中执行此操作的方法。

我将从主宏中调用该子例程，该子例程逐步浏览文件夹（和子文件夹）中的每个文件。我有主要的宏功能。

WORD 2010 Macro-VBA 是否排除简单的编辑页脚功能？

提前致谢

所以，感谢 Issun，这是我的解决方案：

`
Sub Sub_FTR_0()
'
ActiveDocument.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

For i = 1 To ActiveDocument.Sections.Count
 'REM: INSERT Code from RECORD MACRO recorded when editing one Footer correctly
    Selection. [[xxx]], etc.

If i = ActiveDocument.Sections.Count Then GoTo Line1

    ActiveDocument.ActiveWindow.ActivePane.View.NextHeaderFooter

Line1:
Next

    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub
`

这是一种通过 VBA 访问页眉/页脚的方法。正如你所看到的，要得到如此简单的东西需要相当复杂的语法 :p 那里

Sub EditHeadersAndFooters()

Dim i As Long

For i = 1 To ActiveDocument.Sections.Count
    With ActiveDocument.Sections(i)
        .Headers(wdHeaderFooterPrimary).Range.Text = "Foo"
        .Footers(wdHeaderFooterPrimary).Range.Text = "Bar"
    End With
Next

End Sub

以下是有关如何更改文件夹中每个文件的标头的示例代码的链接。它采用了不同的方法，我从未尝试过，但供您参考：http://www.vbaexpress.com/kb/getarticle.php?kb_id=45