VBA MS Word - Change Color of text after an Apostrophe (my Loop is stuck!)

[Chris Macro]

Hi, I am trying to mimic how the VBA Editor changes commented text to green (with an apostrophe as the indicator) in a Word Document's text. I am approaching this by using the Find function to find all the apostrophe's in my selection and then select to the end of the line and change that selection to green. Unfortunately my code gets stuck in an infinite loop on the first line of my sample text. I believe this is because I am changing the selection range when I use the extend command. Anyone know how I can fix this code or maybe there is another way to approach my problem? Thanks for your time!

I have the following testing Text:

'Hello World
'It's my car!
 
Dim myOrgColor As Double          'original color of color index 32
Dim myNewColor As Double      'color that was picked in the dialogue
Dim myRGB_R As Integer           ' RGB values of the color that will be
Dim myRGB_G As Integer            'displayed in the dialogue as
Dim myRGB_B As Integer            'It's my car!

Here is my code so far:

Sub Sample()

    '~~> Loop through the array to get the search text
    
        With Selection.Find
            .ClearFormatting
            .Text = "'"
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Execute


            '~~> Change the attributes
            Do Until .Found = False
                Selection.EndKey Unit:=wdLine, Extend:=wdExtend
                Selection.Font.Color = RGB(0, 128, 0)
                Selection.Find.Execute
            Loop
        End With


End Sub

 

[Macropod]

The wildcard search looks for any single quote that is not immediately followed by a paragraph break or a double quote. The @ says to extend the range until either of those condition fails (which it does when it finally encounters the paragraph break), after which the ^13 specifies the paragraph break. Note that this approach will fail if there is a double quote character anywhere after a legitimate single quote.

You need the four consecutive double quotes in the code so that VBA recognises that you're specifying a double quote and not using it as a string terminator. You could also use:
.Text = "'[!^13" & Chr(34) & "]@[^13]"

 

[Chris Macro]

Thank you for the explanation Paul!