51Testing软件测试论坛

标题: 高手帮忙看一下vbs代码问题，关于word中添加table的问题 [打印本页]

作者: csj 时间: 2010-12-3 16:12
标题: 高手帮忙看一下vbs代码问题，关于word中添加table的问题
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中的第一行，第一列。怎么改代码才可以让两个表是独立存在的，求代码指正

作者: hxw_3166 时间: 2010-12-6 16:38
可以试试以下写法，我测试可以。
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))

作者: csj 时间: 2010-12-8 11:14
回复 2# hxw_3166

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

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)