以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问 word 页数统计的代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138473)

--  作者:tcmhl
--  发布时间:2019/8/1 9:16:00
--  请问 word 页数统计的代码
RT 谢谢!网上找了几个都无法运行
--  作者:有点蓝
--  发布时间:2019/8/1 10:37:00
--  
参考

Dim app As New MSWord.Application
try
    Dim fileName = "E:\\问题\\abc.doc"
    Dim doc = app.Documents.Open(fileName)   
    Dim y = doc.ComputeStatistics(Microsoft.Office.Interop.Word.WdStatistic.wdStatisticPages, Nothing)
    msgbox(y)
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try