如何返回word文档页数（已解决）

gzh888666 · 发表于 2013-3-25 22:32:44

本帖最后由 gzh888666 于 2013-3-26 20:51 编辑

如何返回现有的word文档页数？
搜了一下也没搜到！那位仁兄告诉一下，感谢！
再次翻看UDF，找到了！_WordDocPropertyGet

lpxx · 发表于 2013-3-26 00:30:40

你的牙齿会不会酸？

starwins · 发表于 2013-3-26 05:35:08

DDDDDDDDDDDDDDDDDDDDD

starwins · 发表于 2013-3-26 05:35:13

DDDDDDDDDDDDDDDDDDDD

jwchen119 · 发表于 2013-3-26 12:03:59

給你個方向 :Word UDF
http://www.autoitscript.com/foru ... rmer-wordex-thread/

gzh888666 · 发表于 2013-3-26 20:46:33

回复 2# lpxx

这个我还以为论坛会有呢？还没有这个函数呀！

gzh888666 · 发表于 2013-3-26 20:46:55

回复 5# jwchen119

英文成问题呀

h20040606 · 发表于 2013-3-26 21:02:22

太好了，我也看一下

kevinch · 发表于 2013-3-26 21:18:29

$doc.BuiltInDocumentProperties(14)

gzh888666 · 发表于 2013-3-26 22:20:56

回复 9# kevinch

求教kevinch兄这个$doc.BuiltInDocumentProperties(14)怎么用？

$word=ObjCreate("word.application")
$word.visible=1
$doc=$word.documents.open(@ScriptDir&"\80005.doc")
$num = $doc.BuiltInDocumentProperties(14)
MsgBox(0,"",$num)

这样不对
_WordDocPropertyGet这个函数可以返回，但有必须加延迟。

gzh888666 · 发表于 2013-3-26 22:34:21

回复 9# kevinch

$word=ObjCreate("word.application")
$word.visible=1
$doc=$word.documents.open(@ScriptDir&"\80005.doc")
$num = $doc.BuiltInDocumentProperties(14).value
MsgBox(0,"",$num)

这样明明26页的文档只能返回3.另外问兄弟一下如何后台不打开文档进行检测？

kevinch · 发表于 2013-3-26 23:18:12

回复 11# gzh888666

$doc=ObjGet(@ScriptDir&"\气场.doc")
;$num = $doc.BuiltInDocumentProperties(14)  ;很奇怪，这句在vba里很好用，在au3里调用怎么显示都是3
$num=$doc.activewindow.panes(1).pages.count
$doc.close
MsgBox(0,"",$num)

这样试下

gzh888666 · 发表于 2013-3-27 18:54:27

回复 12# kevinch

看来的确有AU3的一些问题，加上1秒的延迟应该就可以了，
这段代码测试很完美，再次感谢kevinch兄的帮助！

handongcn · 发表于 2013-9-29 10:25:32

这个也是我想要的.

handongcn · 发表于 2013-9-29 10:41:10

老K厉害,是呀,楼主说的也对加上点延迟就正确了.

		自动登录	找回密码
密码			加入

[AU3基础] 如何返回word文档页数（已解决）

相关帖子

评分