win7如何统计文件夹每个word文档的总页数？查看详细没有页数这一项。 10
希望好心者帮助。我是想不用一个个打开看状态栏，因为文档好多啊。光打开关闭就够我忙活的了。
我感觉win7在这里比XP是倒退了。竟然把 资源管理器 查看 详细信息 页数 这么重要的一个项给去掉了。
或者用户什么软件也行。谢谢！ 展开
切换到打印界面就可以看到一份word文档的总页数了，具体操作方法如下（以word2016为例）：
1、如下图，点击word2016左上角的“文件”：
2、如下图，点击“打印”，然后在word下边缘中部就可以看到“共N页”，例如下图显示的这个word文档共2页：
首先这个需要插入页脚
1、在页脚中 添加文字 第*页，共*页；
2、将光标定位到 第 | 页 这里
3、选择插入 ->找到文本部件 ->选择域
4、在域里面有2个单词 page 和 Numpages
5、分别在 第*页，共*页 中选择 第 page 页，共 Numpages 页这2个单词,这里会自动统计。
当然这里的“第几页,共几页” 可以根据 实际需求自定义。不是固定格式，只是为了要这里的page和Nubpages的位子
将所有的WORD文档放在一个文件夹中，然后启动excel
按ALT+F11进入VBE
选菜单中的插入——模块
再选菜单中的工具——引用——“mirosoft word XX.0 object library”(其中的XX可能随版本不一样而有区别，反正就是一个数字)
粘入以下代码：
Sub xx()
Dim wdapp As Word.Application
Set wdapp = New Word.Application
Dim n&, p As Variant, fs As Object, fld As Object 'P用于存放文件对象
Set fs = CreateObject("scripting.filesystemobject") '创建文件系统对象fs
Set fld = fs.getfolder("C:\课程资源") '通过FS对象创建文件夹对象fld,
'这样就可以使用指定文件夹下的所有文件了
For Each p In fld.Files '这个非常重要,因为我们不知道其中的多少个文件,
'而且文件名也没有规律,所以用集合循环来完成,意思是从文件夹对象fld中依次获得每一个文件
'并将这些文件以对象的形式赋值对象变量p,这样p就是该文件了,对p的操作就是对该文件的操作
wdapp.Documents.Open (p)
n = n + wdapp.ActiveDocument.BuiltinDocumentProperties(wdPropertyPages)
wdapp.ActiveDocument.Close (False)
Next p
MsgBox n
Set p = Nothing
Set fs = Nothing
Set fld = Nothing
set wdapp=nothing
End Sub
6. 显示的对话框中就是所有文档全部页数。
本来这个在WORD中的VBE中也可以做，但这一段程序我居然没有运行成功，所以只好在EXCEL中完成了。你去试一下，有什么问题再交流。
说明白点好吗，怎么启动excel
把你机器上的EXCEL启动起来就行了，或者随便打开一个EXCEL文件就行，如果没有安装EXCEL那就没办法了，当然，有WORD一般就应该有EXCEL啦
用这个wordAID，3步操作即可搞定，统计文档页数就是如此轻松，貌似最大支持500个文档，你应该没有这么多文档吧
