高手帮忙看一下vbs代码问题，关于word中添加table的问题

csj

Set objWord = CreateObject("Word.Application")
objWord.Visible = True

Set objDoc = objWord.Documents.Open("C:\MyFile\Project\TestFile\Practice\TestWord.doc")

Set objSelection = objWord.Selection   
Set table1 = objWord.Tables.Add(objSelection.Range, 2, 2,1)

Set table2 = objWord.Tables.Add(objSelection.Range, 2, 2,1)


上面的代码执行后，table2是嵌套在table1中的第一行，第一列。怎么改代码才可以让两个表是独立存在的，求代码指正

csj

回复 2# hxw_3166

我的想法是，我随便在我需要的地方就可以添加table，而且不影响前面的内容。另外，就算这么分了，怎么操作你分开后的table呢

hxw_3166

可以试试以下写法，我测试可以。
Set objWord = CreateObject("Word.Application")
objWord.Visible = True

Set objDoc = objWord.Documents.Open("C:\Documents and Settings\tom\桌面\test.doc")

Set objSelection = objWord.Selection   

Set table1 = objDoc.Tables.Add(objSelection.Range, 4, 4,1)
table1.Split(table1.Rows(3))