VBScript/VBA设置Word文档的页眉或页脚
由于工作需要我们常常需要批量设置Word文档的页眉或者页脚,除了递归遍历Word文件外,我们还需要借助Word.Application组件来实现页眉或页脚的增加或修改。
Option Explicit
Const MSWORD_FILENAME = "Word文件路径"
Const wdSeekCurrentPageFooter = 10
Const wdAlignParagraphCenter = 1
Const wdAlignParagraphRight = 2
Const wdSeekMainDocument = 0
Dim wdApp
Set wdApp = WSH.CreateObject( "Word.Application")
wdApp.visible = False
Set doc = wdApp.Documents.Open(MSWORD_FILENAME)
doc.Activate ' 激活打开的文档
doc.PageSetup.FooterDistance = 30 ' 设置页脚到页面底边的距离
' 定位到页脚
wdApp.ActiveWindow.ActivePane.View.SeekView _
= wdSeekCurrentPageFooter
' 下面是针对字体的设置
wdApp.Selection.Font.Name = "Times New Roman"
wdApp.Selection.Font.Size = 14 ' 字号
wdApp.Selection.Font.Bold = True ' 加粗
wdApp.Selection.Text = "页脚0001" ' 页脚文本
' 页脚文本的位置wdAlignParagraphRight为居右
wdApp.Selection.ParagraphFormat.Alignment _
= wdAlignParagraphRight
' 返回定位到主文档
wdApp.ActiveWindow.ActivePane.View.SeekView _
= wdSeekMainDocument
doc.Save ' 保存刚才的修改
doc.Close ' 关闭文档
Set doc = Nothing
wdApp.visible = True
wdApp.Quit
Set wdApp = Nothing
这里要注意的是设置页脚到底边距离的时候需要用到页面设置的功能,即PageSetup.FooterDistance。