VBA - 如果在文本框中的任何位置找到匹配条件，则插入字符串

Question

我正在尝试编写一个宏，在文本框的开头插入"!!!"，如果该文本框的任何部分中有"XX"。理想情况下，宏将为演示文稿中的每个文本框运行此过程，但如果有人可以帮助我完成基本过程，我可以弄清楚如何循环它。

例如，带有以下文本的文本框：

  

  
• 我在XX / XX / 20XX上吃了XX汉堡包
  

会变成

  

  
• !!!我在XX / XX / 20XX上吃了XX汉堡包
  

Answer 1

我希望这可以提供帮助。

Sub test()
Dim TestString As String

TestString = "I ate XX hamburgers on XX/XX/20XX"

Variable = InStr(1, TestString, "X")

If Variable > 0 Then
    output = "!! " & TestString
End If

Debug.Print output

End Sub

这里TestString =你的输入字符串

InStr函数测试字符串中是否存在“X”，如果它是“!!”加入变量“输出”

这应该很容易适应？

Answer 2

我希望这会对你有所帮助。

Sub test()

Dim s As String
s = "Test XX"

If InStr(1, s, XX, vbTextCompare) Then
s = "!!!" + s
End If

MsgBox s

End Sub