将文本添加到文本框宏

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