用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..............
