userform help (having trouble passing info from form to macro)

Guessed · #15 09-07-2015, 07:34 PM

In the sample doc you provided, the final return in the document is highlighted so the loop is repeating there. If you remove that 'invisible' highlight then the code loop ends as expected.

For the purposes of discovering where the oRng was located during the loop, I added a line to your code so I could see the range.

Code:

Private Sub DoColorChange(SearchColor As Long, ReplaceColor As Long)

Dim oDoc As Document
Dim oRng As Range

Set oDoc = ActiveDocument
Set oRng = oDoc.Range

With oRng.Find
    .Highlight = True
    .Wrap = wdFindStop
    Do While oRng.Find.Execute
        If oRng.HighlightColorIndex = SearchColor Then
           oRng.HighlightColorIndex = ReplaceColor
        End If
        oRng.Select
        oRng.Collapse 0
    Loop
End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to copy cell info to multiple documents	Patrick Innes	Word VBA	2	02-18-2015 08:38 PM
Trouble automatically running user form	Lostinvba	Word VBA	3	11-23-2013 07:22 PM
I'm having trouble creating a Merge using label form and placing a shape in the text	blockie	Mail Merge	8	11-13-2013 11:28 PM
Macro trouble	Zack	Excel	2	10-14-2010 12:07 PM
Trouble updating a form	TomCaesar	Outlook	0	11-29-2006 10:52 AM