VBA - Insert string if matching criteria is found anywhere in textbox

Question

I am trying to write a macro that inserts "!!!" at the beginning of a textbox if there is a "XX" located in any part of that text box. Ideally the macro will run this procedure for every textbox in the presentation, but I can figure out how to loop it through if someone can help me with the basic procedure.

For example, a text box with the following text:

I ate XX hamburgers on XX/XX/20XX

would become

!!!I ate XX hamburgers on XX/XX/20XX

This question has answers you could adapt to fit your needs: http://stackoverflow.com/questions/15844903/find-and-highlight-text-in-ms-powerpoint — Tim Williams, Nov 25 '13 at 21:47
Thank you so much for the answers, I'm sorry I took so long to mark an answer this was my first time posting a question — dsal1951, Dec 11 '13 at 05:11

score 0 · Accepted Answer · edited Nov 26 '13 at 06:03

I hope this can help.

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

Here TestString = your input string

The InStr function tests if "X" is present in the string, if it is then "!!" is joined to the variable "Output"

This should be quite easy to adapt?

score 0 · Answer 2 · answered Nov 25 '13 at 22:03

0

i hope this will help you.

Sub test()

Dim s As String
s = "Test XX"

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

MsgBox s

End Sub

answered Nov 25 '13 at 22:03

ruedi

5,365
15
52
88

VBA - Insert string if matching criteria is found anywhere in textbox

2 Answers2