主题：如何用狐有调用WORD中的内部对话框？

Dim app As New MSWord.Application
try
    Dim fileName = "d:\test.doc"
    Dim doc = app.Documents.Open(fileName)

    Dim IncludeFootnotesAndEndnotes = True   
    Dim y = doc.ComputeStatistics(Microsoft.Office.Interop.Word.WdStatistic.wdStatisticCharactersWithSpaces, IncludeFootnotesAndEndnotes)
    msgbox(y)
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
    'app.Quit
End try

https://msdn.microsoft.com/zh-cn/library/microsoft.office.interop.word.wdstatistic%28v=office.15%29.aspx