".Replacement.Font.Color" Possible Combination

macropod · #1 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 · #2 10-21-2015, 12:44 AM

Hi Paul,

Thank you for the code. Working great!

Cheers!

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