用VB操作在word的表格中画一个矩形的问题
现有如下语句
Dim OWork As Object
Dim oDoc As Object

Set OWork = CreateObject("Word.Application")
Set oDoc = OWork.Documents
oDoc.Open ("c:\tset.doc")


这个test.doc文件是一个10行3列的表格

我想在其中第一行第一列的格子里画一个矩形

请问语句该怎么写啊

江湖救急 谢谢 所有分数奉上 谢谢

[解决办法]
在格子里再画一个矩形?不知你的真正需求

objword.ActiveDocument.Tables(1).Cell(1, 2).select

ActiveDocument.Shapes.AddShape(msoShapeRectangle, 98.25, 215.25,72#,72#).Select

[解决办法]
帮顶
[解决办法]
objword.ActiveDocument.Tables(1).Cell(1, 1).select

ActiveDocument.Shapes.AddShape(msoShapeRectangle, 100, 200,50#,50#).Select
[解决办法]
友情Up..............