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

我正在尝试编写一个宏，如果文本框的任何部分都有一个

“XX”

，它将在文本框的开头插入

“！！！”

。理想情况下，宏将为演示文稿中的每个文本框运行此过程，但如果有人能帮助我完成基本过程，我可以想出如何循环执行此过程

例如，包含以下文本的文本框：

• 我在XX/XX/20XX吃了XX个汉堡

将成为

• ！！！我在XX/XX/20XX吃了XX个汉堡

我希望这能有所帮助

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”，如果存在，则将“！！”加入变量“Output”

---

这应该很容易适应？

我希望这会对您有所帮助

Sub test()

Dim s As String
s = "Test XX"

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

MsgBox s

End Sub

---

此问题的答案可以根据您的需要进行调整：如果答案合适，请检查。非常感谢您的答案，很抱歉我花了这么长时间来标记答案。这是我第一次发布问题