Find & Replace: substitute red-coloured words with underscores

tinfanide · #1 10-06-2012, 02:24 AM

Views: 11 Size: 25.5 KB">Find & Replace.doc

Please see the attachment. Many thanks.

macropod · #2 10-06-2012, 09:20 PM

Hi Tinfanide,

Replacing character-for-character with underscores is easy enough unsing Find/Replace, but:
• underscores are typically not the same width as the other characters you'll be replacing (see https://www.msofficeforums.com/word/...html#post38158 for comparative widths in 12pt TNR). That means one would have to calculate the string width, then substitute however many underscores will give an approximation of that width; and
• things can get very messy where line breaks are involved. In effect, each line has to be processed independently.
Ultimately, a fairly complex macro would be required. If this is for redaction purposes, see: http://redaction.codeplex.com/

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