Foxtable(狐表)用户栏目专家坐堂 → 代码读取word文档字数统计,得到的结果总是不准确??麻烦老师看看


  共有2645人关注过本帖树形打印复制链接

主题:代码读取word文档字数统计,得到的结果总是不准确??麻烦老师看看

帅哥哟,离线,有人找我吗?
cnsjroom
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
代码读取word文档字数统计,得到的结果总是不准确??麻烦老师看看  发帖心情 Post By:2021/1/19 12:29:00 [只看该作者]

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文档字数统计,得到的结果总是不准确??麻烦老师看看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107474 积分:546649 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/19 13:41:00 [只看该作者]


 回到顶部