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

Question

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

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

这个子例程是我从主宏调用的子例程，它正在单步执行文件夹(和子文件夹)中的每个文件。我有主要的宏功能。

WORD 2010 Macro-VBA 是否排除了简单的 Edit-Footer 功能？

提前致谢

所以，感谢 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
`

Answer 1

这是一种可以通过 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