1、首先打开一个多页面的word文档，本教程以新建一个word文档为例，共5页。
2、先插入一个控件，作为启动代码按钮。
3、按钮绘制好之后如图所示。
4、鼠标右键单击该控件，在弹出的菜单中选择查看代码。
5、此时会跳转到VBA界面，在代码窗口中复制粘贴（覆盖粘贴）如下代码：
Private Sub CommandButton1_Click()
Dim k%
k = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
MsgBox "本Word文档共" & k & "页"
End Sub
6、关闭VBA界面，返回Word窗口。
7、鼠标左键单击该控件，
