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
===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================
2009-11-03 09:29
