vba - 如何在 ActiveX 文本框中搜索和替换文本

Question

我正在尝试搜索 ActiveX 文本框 (TextBox1) 以替换没有任何内容的短语...

我有这段代码似乎只是擦除整个盒子而不是孤立的短语。

Private Sub CommandButton3_Click()


TextBox1 = Selection


Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "This is the text to remove!"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


End Sub

添加一些内容（例如选择活动文档中的所有形状）- 代码适用于普通的 TextBox - 以及文档的其余部分......只是不是 ActiveX 框（这是我想要的！！）

请帮忙！

Answer 1

您可以简单地使用内置的 VBA替换功能：

Private Sub CommandButton3_Click()
    TextBox1.Value = Replace(TextBox1.Value, "This is the text to remove!", "")
End Sub