头疼,现在我有一堆资料需要打印,得知道一共有多少页才知道需要多少钱啊。
希望好心者帮助。我是想不用一个个打开看状态栏,因为文档好多啊。光打开关闭就够我忙活的了。
我感觉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啦
追问粘贴代码之后呢,按什么确认
追答工具栏上有一个按钮,绿色的小三角形,就可以运行了,对了,光标必须在sub 与end sub之是。注意改一下那个目录,代码中,我调试的时候用的是c:\****
本回答被网友采纳用这个wordAID,3步操作即可搞定,统计文档页数就是如此轻松,貌似最大支持500个文档,你应该没有这么多文档吧