采用的是：
1：首先建立一个word模板，
2：然后在通过在word版本插入多个书签，把一些Text的内容写进word中
现在程序一运行提示：类型不匹配的错误提示！不知道到底哪里出现错误了。
Private Sub exportToWord_Click()

Dim wdApp As Word.Application
Dim wdDoc As Document


Dim b1 As String, b2 As String
Dim b3 As String, b4 As String
Dim b5 As String, b6 As String
Dim b7 As String, b8 As String
Dim b9 As String, b10 As String
Dim b11 As String, b12 As String
Dim b13 As String, b14 As String



   
    Set wdApp = New Word.Application
   
   
    Set wdDoc = wdApp.Documents.Open(App.Path + "\" & "报告模板.doc")
     
    wdApp.Visible = True
   
   
   
    b1 = txtName.Text
   
    b2 = txtNowline.Text
现在又出现一个错误提示说：word被另一个用户锁定！

[ 本帖最后由 shinesun 于 2014-5-30 13:44 编辑 ]

自己解决了，不过还是没有找到为什么会出现这种问题！

应该是"报告模板.doc"已经被打开了，你又运行了一次程序。应该先判断一下是否已经打开了

，解决就好了。

打开了，结束就要代码关闭并不保存。不然要报错。