怎样在VB中输出word文档

Dim WordApp As Word.Application'定义word应用变量
Dim newDoc As Word.Document'定义word文档变量
Set WordApp = CreateObject("Word.Application")'创建新的word应用
WordApp.Visible = True

With WordApp
Set newDoc = .Documents.Add(App.Path & "\报告单\食品水质报告.Doc")'在创建的word应用中新建一个新的word文档
With .Selection
.GoTo wdGoToBookmark, , , "bh" bh为word文档中的对应位置的标签名
.TypeText PrnBID'写内容
.GoTo wdGoToBookmark, , , "GoodsName" 'GoodsName为word文档中的对应位置的标签名
.TypeText PrnGName'写内容
Set MyRS = Nothing
End With
' newDoc.SaveAs FileName:=FilePath
End With

' If theError = 429 Then WordApp.Quit
Set WordApp = Nothing
在事先做好的word文档中要写内容的位置设定好标签,然后在程序中找到标签,再写入数据

很麻烦，需要在vb中打开word应用程序——输入文档内容——保存文档——关闭word。
我用过建立交换文件的方法：vb中打开指定文件——输出内容——关闭文件，然后用word插入——文档功能读入。