将文本添加到文本框宏

Question

为什么此代码不能将文本添加到文本框？我确信语法在某处，但不确定在哪里。

    Label5.Text = "Add Text"

感谢。

Answer 1

无法用更多的代码说明。

如果文本框实际上是一个ActiveX标签（如其名称所示），那么就像这样：

Sub thing()
    Dim oSh As Shape
    Set oSh = ActiveWindow.Selection.ShapeRange(1)

    oSh.OLEFormat.Object.Caption = "Some text"

End Sub

如果是普通文本框或其他可包含文本的形状：

Sub thing()
    Dim oSh As Shape
    Set oSh = ActiveWindow.Selection.ShapeRange(1)

    oSh.TextFrame.TextRange.Text = "Some text"

End Sub

Answer 2

它因为它的形状。获取形状集合并找到标签，然后访问TextFrame2.TextRange.text