我的VBA经验很基础,之前主要使用的是WORD 2003的宏经验。录制宏通常使用GoToFooter(或Edit Footer)菜单命令,并允许随后进行编辑。在WORD 2010中,这个(和许多其他)命令不会“记录”到宏中(但是在记录模式下,我确实可以进入Edit Footer函数)。
各种VBS选项的研究显示了几种方法来创建页脚以及在宏中进行全局页脚设置更改。然而,如果我只想在页脚中修改公司名称(例如),我找不到在宏子程序中完成此操作的方法。
这个子程序是我从主要宏中调用的,主要宏正在逐个文件夹(包括子文件夹)中进行步骤。我的主要宏功能正常。
WORD 2010的宏-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
`
'(REM) 添加:页脚编辑 Selection.[cmds]
If i = ActiveDocument.Sections.Count Then GoTo Line1ActiveDocument.ActiveWindow.ActivePane.View.NextHeaderFooter
Line1: NextActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub - Dan