110,024
社区成员




Dim objWord As New Word.Application
objWord.Visible = True
objWord.Documents.Open("c:\1.doc")
With objWord 'word.application
.ActiveWindow.ActivePane.View.SeekView = Word.WdSeekView.wdSeekCurrentPageFooter '当前状态为创建页脚的状态
.Selection.TypeText("第") '在选择的区域插入文字
.Selection.Fields.Add(.Selection.Range, Word.WdFieldType.wdFieldPage) '插入当前页码
.Selection.TypeText("页/共")
.Selection.Fields.Add(.Selection.Range, Word.WdFieldType.wdFieldNumPages) '插入总页数
.Selection.TypeText("页")
.Selection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter '居中显示
End With