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

Question

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

Answer 1

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
        4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
Selection.TypeText Text:="第一格"这一段直接copy到vb中会报错，应该如何修改？

Answer 2

上面的问题
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:="第一格"

Answer 3

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

Answer 4

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