这是指在Word的VBA内部,如果在VB程序中使用必须先引用Word对象,然后dim ap as word.application
set ap = new word.applicationdim d as document
for each d in ap.documents
msgbox d.name
next
set ap = new word.applicationdim d as document
for each d in ap.documents
msgbox d.name
next
Dim obj2 As Word.Document
Set obj1 = CreateObject("word.application")
Set obj2 = obj1.Documents.Open(ls)
obj2.SaveAs Left(ls, Len(ls) - 3) & "txt"
obj2.Close False
Set obj2 = Nothing
obj1.Quit
Set obj1 = Nothing