Question

vba word 获取文本框的文字

我的需求就是：获取文本框的文字，然后全部替换
我获取的时候，遇到一个问题是：
ActiveDocument.Shapes(1).TextFrame.TextRange.Text 报错 提示该对象不支持所附的文字
搜索了下，别人用下面的方法可以获取到文本框的文字
ActiveDocument.Shapes(1).OLEFormat.Object.Text 报错 提示缺少对象
通过在word里面录制宏，我看到shape下面是有OLEFormat成员的
我是通过第三方office控件，用javascript写的，alert(ActiveDocument.Shapes(1).OLEFormat)这个的时候就报null错误，正确的话应该是弹出object，请高手指教，如何获取以及如何替换。

Answer 1

Sub Example()
Dim myObject As Object
'对于浮动式文本框控件
Set myObject = ActiveDocument.Shapes(1).OLEFormat.Object
MsgBox myObject.Text
'对于嵌入式文本框控件
Set myObject = ActiveDocument.InlineShapes(1).OLEFormat.Object
MsgBox myObject.Text
'对于word的文本框图形（非控件）
Set myObject = ActiveDocument.Shapes(1).TextFrame.TextRange
MsgBox myObject.Text
End Sub