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

csj

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

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

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

xieyang702

等答案