以文本方式查看主题

-  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=160068)
--  作者：cnsjroom
--  发布时间：2021/1/19 12:29:00
--  代码读取word文档字数统计，得到的结果总是不准确？？麻烦老师看看
Dim app As New MSWord.Application
try
    Dim dlg As New OpenFileDialog
    dlg.Filter = "|*.*"
    If dlg.ShowDialog =DialogResult.OK Then
        Dim doc = app.Documents.Open(dlg.FileName)
        Dim IncludeFootnotesAndEndnotes = True
        Dim y = doc.ComputeStatistics(Microsoft.Office.Interop.Word.WdStatistic.wdStatisticCharactersWithSpaces, IncludeFootnotesAndEndnotes)
        msgbox(y)
        app.Visible = False
    End If
catch ex As exception
    msgbox(ex.message)
    app.Quit
    finally
End try
代码读取word文档字数统计，得到的结果总是不准确？？麻烦老师看看
--  作者：有点蓝
--  发布时间：2021/1/19 13:41:00
--  
举例说明，什么结果不正确？