如何搜索和文本框的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 

对于一些添加剂（如选择各种形状的活动文档中） - 该代码可与普通的文本框 - ，并与文档的其余部分太...只是没有该ActiveX箱（这是我想要!!）

请帮忙！

Answer 1

您可以简单地使用内置的VBA Replace function：

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