Find/Replace Wildcard Needed-Bold & Highlight

rsrasc · #3 11-11-2014, 03:07 PM

Good point, and I agreed. Not trying to get "free" advise without me doing my homework or putting a good effort. I do.

Before posting anything, I spent a good amount of hours searching the net and your site for answers.

Unfortunately, I don't have the necessary skills to come out sometimes with a workable code or solution.

Yesterday, you gave me a workable find/replace code; I try to modify it for something else--spent more than two hours trying to find a solution but couldn't do it.

Anyway, please accept my apologies, and as always I thank you for your valuable cooperation.

Here is a sample code I found on the web so I can bold what I want. Still working on the color issue.

Sincerely

PHP Code:


			
Sub BoldText()

'

Application.ScreenUpdating = False

With ActiveDocument.Range

  With .Find

    .ClearFormatting

    .Replacement.ClearFormatting

    .Forward = True

    .Wrap = wdFindContinue

    .Format = False

    .MatchWildcards = True

    .Text = "Answer: A"

    .Replacement.Text = ""

    .Replacement.Font.Bold = True

    .Execute Replace:=wdReplaceAll

    .Text = "Answer: B"

    .Replacement.Text = ""

    .Replacement.Font.Bold = True

    .Execute Replace:=wdReplaceAll

    .Text = "Answer: C"

    .Replacement.Text = ""

    .Replacement.Font.Bold = True

    .Execute Replace:=wdReplaceAll

    .Text = "Answer: D"

    .Replacement.Text = ""

    .Replacement.Font.Bold = True

    .Execute Replace:=wdReplaceAll

    .Forward = True

    .Wrap = wdFindContinue

    .MatchWholeWord = True

    .Execute Replace:=wdReplaceAll

   End With

End With

Application.ScreenUpdating = True

End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
New Find/Replace Wildcard Needed	rsrasc	Word VBA	2	11-11-2014 09:46 AM
Wildcard Find and Replace	Ulodesk	Word	1	06-23-2014 10:26 AM
Wildcard Find/Replace deletes extra character	Cosmo	Word	1	06-20-2014 08:49 AM
Need help using WildCard Find & Replace	Cayce	Word	1	06-09-2014 04:17 PM