在excel中用vba获得word页数

hbhy012

请教各位大神：
我在代码中用了如下代码'
yueshu = Documents("房票补偿安置协议书.doc").BuiltinDocumentProperties(wdPropertyPages) ''''获得页数
yueshfu = Documents("货币补偿安置协议书.doc").ActiveWindow.Panes(1).Pages.Count ''''获得页数
但有时能获得页数，有时又不行，不知道是什么原因，请指教

fxl447098457

经常用第二个。没什么问题。。

hbhy012

fxl447098457 发表于 2018-9-7 13:04
经常用第二个。没什么问题。。

fxl447098457老师 是这样的 代码在第一次运行时没有问题的但在代码第二次运行时就不行了 ，必须停止运行代码还要关闭excel表后重新启动才能正常。请指教

fxl447098457

hbhy012 发表于 2018-9-7 13:43
fxl447098457老师 是这样的 代码在第一次运行时没有问题的但在代码第二次运行时就不行了 ，必须停止运行 ...

我试过没什么问题。提问就发代码啊。你这无头无尾的。谁知道你代码怎么写的。下面的代码我多次运行也没发现什么问题啊
Sub test()
Dim wd As Object
Set wd = GetObject("E:\SafeArray使用.doc")
MsgBox wd.ActiveWindow.Panes(1).Pages.Count
wd.Close False
End Sub

hbhy012

fxl447098457 发表于 2018-9-7 14:23
我试过没什么问题。提问就发代码啊。你这无头无尾的。谁知道你代码怎么写的。下面的代码我多次运行也没发 ...

感谢fxl447098457 问题解决了 在您的指导下我把路径加上问题就ok了 谢谢

hbhy012

fxl447098457 发表于 2018-9-7 14:23
我试过没什么问题。提问就发代码啊。你这无头无尾的。谁知道你代码怎么写的。下面的代码我多次运行也没发 ...

再请教一个问题
Sub test()
Dim wd As Object
Set wd = GetObject("E:\SafeArray使用.doc")
t=wd.ActiveWindow.Panes(1).Pages.Count
if t>3 then
“如果页数大于3页 调整行距使总页数不超过3页”  这段代码怎么写？
end if
End Sub
谢谢