以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  请问 word 页数统计的代码  (http://foxtable.net/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