Find & Replace: substitute red-coloured words with underscores

tinfanide · #3 10-06-2012, 11:04 PM

Yes, ya're right, macropod.

Before I asked, I'd forgotten one thing. I just used the Format option in the Find And Replace box without specifying the use of wildcards (?) and ended up with

a block of words (with the formatting) turning out to be just a single underscore and

that's why I came here and asked. Now just put ? in the Find What area and Replace all and it does what I have wanted.

And even before I used such a simple Find/Replace function, I'd written a macro:

Code:

Sub test()

With ActiveDocument.Range.Find
    .ClearFormatting
    .ClearHitHighlight
    .MatchWildcards = True
    .Forward = True
    .Wrap = wdFindContinue
    .Font.ColorIndex = wdRed
    .Execute FindText:="?", Format:=True, ReplaceWith:="_", Replace:=wdReplaceAll
End With

End Sub

But of course, it does not accurately deal with the length of different characters as you said.

Thank you for the references given.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to replace few words in the document	ubns	Word VBA	7	08-16-2012 10:33 PM
Bad view when using Find and Find & Replace - Word places found string on top line	paulkaye	Word	4	12-06-2011 11:05 PM
Is there a way to use "find/replace" to find italics words?	slayda	Word	3	09-14-2011 02:16 PM
Help with find and replace or query and replace	shabbaranks	Excel	4	03-19-2011 08:38 AM
Find & Replace words with "/" prefix & suffix	tollanarama	Word	4	01-25-2011 02:19 AM