csj 发表于 2010-11-19 16:38:04

vbs 在word文档中添加table的问题，求高手指正代码问题

Set objWord = CreateObject("Word.Application")               
      objWord.Visible = True
      Set objDoc = objWord.Documents.Open("C:\MyFile\Project\TestFile\Practice\Login13568.doc")
      Set objRange = objDoc.Range()
      objDoc.Tables.Add objRange,5,2
         et objTable=objDoc.Tables(1)
      Set objSelection = objWord.Selection
      objSelection.TypeText "2.Each Action Details"

       objDoc.Tables.Add objRange,5,2

这样的代码一旦执行完最后一行，WORD文档的内容将被，全部替换成那个table，请问高手，如何可以实现添加table后，可以追加到打开的Word，而不影响其他的内容。求指正

TIB 发表于 2010-11-21 20:05:57

估计是这句有问题
Set objSelection = objWord.Selection

具体请查阅Word接口文档、VBA编程方面的资料

xieyang702 发表于 2010-11-24 10:20:48

等答案:)
页: [1]
查看完整版本: vbs 在word文档中添加table的问题，求高手指正代码问题