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