有在word表格中插入矩形文本框的代码么?解决思路

有在word表格中插入矩形文本框的代码么?
请问用VB操作word 如何插入一个矩形的文本框 注意是文本框

而且该文本框背景透明 边框是红色

请问代码该怎么写啊 急救 拜谢

------解决方案--------------------
帮顶
------解决方案--------------------
只能帮顶.............

------解决方案--------------------
帮顶一个吧。
------解决方案--------------------
再帮顶
自己录制一下宏看看
------解决方案--------------------
从菜单中找找啊
你用什么版本的WORD?

探讨

怎么录制啊

请教了

------解决方案--------------------
With OWork.ActiveDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 120, 40).Fill 
.Transparency = 1 '设置形状为透明 
.line.ForeColor.RGB =rgb(0,0,255)
End With
------解决方案--------------------
Word 录制宏时，鼠标不能操作，无法录制加入文本框的过程。

------解决方案--------------------
ActiveDocument.Shapes.AddTextbox msoTextOrientationHorizontal, 100, 100, 50, 50