如何通过word对象取得文档的总页数？
请问怎么通过word对象取得一个DOC文档的页数（已设置好纸张类型）？ 问题点数：40、回复次数：3Top
1 楼Jneu（沧海桑田）回复于 2002-01-05 14:59:59 得分 0
请转到VBA专栏～Top
2 楼zjsflyer（非祥天）回复于 2002-01-05 15:39:48 得分 40
要获得某个word文档的总页数可以用以下的方法：
Dim wordObject As word.Application
Sub GetPages()
Set wordObject = CreateObject("Word.Application")
wordObject.Visible = True
wordObject.Activate
wordObject.Documents.Open FileName:="c:\test1.doc" '打开欲求总页数的文档
wordObject.ActiveDocument.Repaginate
'在对话框中显示该文档的总页数
MsgBox wordObject.ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
wordObject.Quit '退出word应用程序
Set wordObject = nothing
End SubTop
3 楼zzc（）回复于 2002-01-05 16:04:17 得分 0
我没用VBA，是VB
感谢zjsflyer给我例子！Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
