使用VBA在WORD中插入页码
Sub 插入页码()
With ActiveWindow.ActivePane.View
.SEEKVIEW = wdSeekCurrentPageFooter
With Selection
.Expand wdStory
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.TypeText "第" .Fields.Add .Range, wdFieldPage
.TypeText "页/共
With ActiveWindow.ActivePane.View
.SEEKVIEW = wdSeekCurrentPageFooter
With Selection
.Expand wdStory
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.TypeText "第" .Fields.Add .Range, wdFieldPage
.TypeText "页/共
文件大小：599B
评论区