利用word VBA 自动设置页眉和页脚、页边距、段落格式1 任务描述
1.1 设置页眉：右上角，第 n 页 / 共 m 页
1.2 设置页脚：中间，文档名称；左下角，第 n 页 / 共 m 页
1.3 设置页边距；
1.4 设置段落格式；
2 过程代码
Sub 设置页眉页脚页边距和段落()
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close '设置页眉
With ActiveWindow.ActivePane.View
.Type = wdPrintView
.SeekView = wdSeekCurrentPageHeader
Selection.WholeStory
Selection.Delete unit:=wdCharacter, Count:=1
With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)
Set rng = .Range
rng.Text = "第 "
rng.Collapse wdCollapseEnd
ActiveDocument.Fields.Add rng, wdFieldPage, "Page"
Set rng = .Rangepane
rng.Collapse wdCollapseEnd
rng.Text = " 页 / 共 "
rng.Collapse wdCollapseEnd
第4页共4页