以文本方式查看主题 - 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 |