用word宏如何取得输入的word个数

是word的字数吗？

是，就是，能不能帮我

Dim WordApp As word.Application
Dim NewWord As word.Document
Private Sub Command1_Click()
  Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = False
    Set NewWord = WordApp.Documents.Open(App.Path + "\3.doc")
       MsgBox WordApp.ActiveDocument.Characters.Count'这就是你要的
    NewWord.Close
    WordApp.Quite
End Sub