vba打开word文档添加相关数据！

[aiur2000]

请问怎样打开一个模板word文档？

Set MyWord = CreateObject("word.application")
Set NewDoc = MyWord.Documents.Add
是打开一个新的word文档，如果我希望打开的是一个以‘c:\temp\模板.doc’蓝本
的一个新的word文档应该如何写这个代码？

[aiur2000]

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
Selection.TypeText Text:="第一格"

这一段直接copy到vb中会报错，应该如何修改？

[hasi1227]

上面的问题
Set NewDoc = MyWord.Documents.open("c:\temp\模板.doc")

下一个:
MyWord.ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
Selection.TypeText Text:="第一格"

[aiur2000]

纠正一下，第一个问题我是想先打开了一个新文档，Set NewDoc = MyWord.Documents.add
然后想以"c:\temp\模板.doc"为基础打开，能实现吗？
下面一个实现了，感谢hasi1227.不过selection前面好像需要加myword.

[hasi1227]

你是首先建立一个新的文当是吗？那么如下：
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。