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

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

2、先插入一个控件，作为启动代码按钮。

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

4、鼠标右键单击该控件，在弹出的菜单中选择查看代码。

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

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

7、鼠标左键单击该控件，