基于VBA技术实现一键计算Word文档的总页数

1、首先打开一个多页面的word文档，本教程以新建一个word文档为例，共5页。

3、按钮绘制好之后如图所示。

5、此时会跳转到VBA界面，在代码窗口中复制粘贴（覆盖粘贴）如下代码：Private Sub Comma荏鱿胫协ndButton1_Click()Dim k% k = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) MsgBox "本Word文档共" & k & "页"End Sub

6、关闭VBA界面，返回Word窗口。