【文件属性】:
文件名称:WORD中VBA插入页码
文件大小:599B
文件格式:TXT
更新时间:2018-11-26 10:48:18
VBA插入页码
Sub 插入页码()
With ActiveWindow.ActivePane.View
.SeekView = wdSeekCurrentPageFooter
With Selection
.Expand wdStory
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.TypeText "第"
.Fields.Add .Range, wdFieldPage
.TypeText "页/共"