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

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

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