Dim MyWord As Word.Application
    Dim MyDoc As Word.Document
   
    Dim MyRange As Word.Range
    Dim MySelect As Word.Selection
    Dim textplant As String
    Dim textart As String
   
 Set MyWord = New Word.Application
     
     MyWord.Visible = True
     
     With MyWord
         .WindowState = wdWindowStateMaximize
         Set MyDoc = .Documents.Add(App.Path & "\输出报告1.doc")
     End With
 
 
 MyWord.Selection.GoTo what:=wdGoToBookmark, Name:="textplant"
 MyWord.Selection.TypeText Text:=Form1.form1Textplant


    Set MyRange = Nothing
    Set MyDoc = Nothing
    Set MyWord = Nothing

有二种方法：
1、打开前，先把 模板文件复制一份为临时文件名。然后打开这个文件，然后输出内容。最后再改名为 最终的文件名。
  标准作法。建议这种。

2、你这种的处理，最终保存时，使用另存为的方式。
   有可能导致模板文件损坏。

那第一种情况怎么实现呢？可以给点参考代码么？

Const TMPFILE = "~tmp.doc"

If Dir(App.Path & "\" & TMPFILE) <> "" Then
    Kill TMPFILE
End If

FileCopy App.Path & "\" & 模板文件, App.Path & "\" & TMPFILE        '目标位置可以是任意盘符任意目录，要求目录存在
  
'对 TMPFILE 打开和处理

Name App.Path & "\" & TMPFILE As "输出报告1.doc"

版主神人！！在你代码指导下都搞好了！！谢谢版主！！