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

时间:2024-10-13 12:42:09

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

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

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

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

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

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

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

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

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

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

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

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

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

基于VBA技术实现一键计算Word文档的总页数
基于VBA技术实现一键计算Word文档的总页数
© 手抄报圈