".Replacement.Font.Color" Possible Combination

rsrasc · #1 10-20-2015, 06:30 AM

Hi all,

Code:

Sub FormatLetterA()
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
        .Text = "Answer (A) "
        .Replacement.Text = ""
        .Replacement.Font.Bold = True
        .Replacement.Font.Italic = False
        .Replacement.Font.Color = 12611584
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub FormatLetterB()
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
        .Text = "Answer (B) "
        .Replacement.Text = ""
        .Replacement.Font.Bold = True
        .Replacement.Font.Italic = False
        .Replacement.Font.Color = 12611584
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub FormatLetterC()
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
        .Text = "Answer (C) "
        .Replacement.Text = ""
        .Replacement.Font.Bold = True
        .Replacement.Font.Italic = False
        .Replacement.Font.Color = 12611584
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub FormatLetterD()
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
        .Text = "Answer (D) "
        .Replacement.Text = ""
        .Replacement.Font.Bold = True
        .Replacement.Font.Italic = False
        .Replacement.Font.Color = 12611584
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
End Sub

I have the above code in a macro and would like know if they could be combined in one.

I tried several options but I couldn't get them to work.

For example, the below code will only highlight the second option (.Text = "Answers (B), (C), and (D)") but not both.

Any help is appreciated. Thanks!!!

Code:

Sub FormatAllLetters()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Answers (A), (C), and (B)"
.Replacement.Text = ""
.Text = "Answers (B), (C), and (D)"
.Replacement.Text = ""
.Replacement.Font.Bold = True
.Replacement.Font.Color = 12611584
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

macropod · #2 10-20-2015, 02:23 PM

Try:

Code:

Sub FormatAllLetters()
With ActiveDocument.Range.Find
  .ClearFormatting
  .Text = "Answers \([A-C]\)"
  With .Replacement
    .ClearFormatting
    .Font.Bold = True
    .Font.Color = 12611584
    .Text = "^&"
  End With
  .Forward = True
  .Wrap = wdFindContinue
  .MatchWildcards = True
  .Execute Replace:=wdReplaceAll
End With
End Sub

rsrasc · #3 10-21-2015, 12:44 AM

Hi Paul,

Thank you for the code. Working great!

Cheers!

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Font Color Question//.Replacement.Font.Color = 12611584	rsrasc	Word VBA	3	09-05-2015 09:03 PM
Setting Font Color and Style "permanently"	wings1080	Word	5	12-19-2014 08:44 AM
Is there a way to change "Genesis" Theme Color from Blue to Green	FUNKSTICK	PowerPoint	13	03-12-2014 12:29 AM
How to globally change default "pattern fill" color for all shapes in PP 2013	tbach	PowerPoint	1	01-31-2014 10:59 AM
How to choose a "List" for certain "Heading" from "Modify" tool?	Jamal NUMAN	Word	2	07-03-2011 03:11 AM