:=直接用=就可已,不过table好象不能添加行吧。

解决方案 »

  1.   

    strTemplateLocation = "http://127.0.0.1:6060/"
      strTemplateName = "test.doc"
      set objWordApp = CreateObject("Word.Application") 
      set objWordDoc = objWordApp.Documents.open(strTemplateLocation + strTemplateName,true,true)
        Set oDoc = objWordApp.ActiveDocument
        Set objTable = oDoc.Tables.Item(1)
        For iCount = 1 To 5 Step 1
          objTable.rows.Add berfore:=Table.rows(3)
        Next iCount
    将这段代码放入vb中是可以添加行的,另注test.docv中要有表格