你是首先建立一个新的文当是吗?那么如下:
dim NewWord as new word.application
dim TempDoument as word.document
dim NewDocument as word.document
set NewWord=new word.application
set NewDocument=NewWord.documents.add
'这样你可以增加一个文当。
'想加C:\???\???.doc
'那么就天加另外一个文当。
set TempDocument=NewWord.document.open("c:\???\??.doc")
NewWord.visible=true
TempDocument.activate'激活当前的文当
'这个时候你的WORD有两个文当了(其中有一个空的,另一个是C:\???\??.doc。