word页眉页脚设置-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 = .Range

rng.Collapse wdCollapseEnd

rng.Text = " 页 / 共 "

rng.Collapse wdCollapseEnd

ActiveDocument.Fields.Add rng, wdFieldNumPages, "Pages"

Set rng = .Range

rng.Collapse wdCollapseEnd

rng.Text = " 页 "

.Range.Fields.Update

.Range.ParagraphFormat.Alignment = wdAlignParagraphRight

'隐藏页眉的横线；

.Range.Borders(wdBorderBottom).Visible = False

End With

.SeekView = wdSeekMainDocument

End With

'设置页脚

WordBasic.ViewFooterOnly

Selection.WholeStory

Selection.Delete unit:=wdCharacter, Count:=1

Dim GetDocName

GetDocName = Left$(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)

With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)

Set rng = .Range

rng.Text = GetDocName

rng.Collapse wdCollapseEnd

Set rng = .Range

rng.Collapse wdCollapseEnd

rng.Text = " 第 "

rng.Collapse wdCollapseEnd

ActiveDocument.Fields.Add rng, wdFieldPage, "Pages"

Set rng = .Range

rng.Collapse wdCollapseEnd

rng.Text = " 页 / 共 "

rng.Collapse wdCollapseEnd

ActiveDocument.Fields.Add rng, wdFieldNumPages, "Pages"

Set rng = .Range

rng.Collapse wdCollapseEnd

rng.Text = " 页 "

.Range.Fields.Update

.Range.ParagraphFormat.Alignment = wdAlignParagraphRight

End With

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

' 设置页面边距和页眉页脚边距

With ActiveDocument.PageSetup

.TopMargin = CentimetersToPoints(1.5)

.BottomMargin = CentimetersToPoints(1.7)

.LeftMargin = CentimetersToPoints(1.7)

.RightMargin = CentimetersToPoints(1.5)

.HeaderDistance = CentimetersToPoints(1)

.FooterDistance = CentimetersToPoints(1.2)

End With

ActiveWindow.ActivePane.VerticalPercentScrolled = 0

'设置段落格式，段后间距0.5行

Selection.WholeStory

With Selection.ParagraphFormat

.LineUnitAfter = 0.5

End With

Selection.HomeKey unit:=wdStory, Extend:=wsExtend

End Sub

过程运行效果如下：