Change fonts of a defined word with VBA

macropod · #1 02-01-2011, 01:49 AM

Hi Michael,

Try:

Code:

Sub ColourChange()
With ActiveDocument.Content.Find
  .ClearFormatting
  .Text = "FQCN73"
  With .Replacement
    .ClearFormatting
    .Text = "^&"
    .Font.Color = wdColorRed
  End With
  .Forward = True
  .Wrap = wdFindContinue
  .Format = True
  .MatchCase = False
  .MatchWholeWord = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
  .Execute Replace:=wdReplaceAll
End With
End Sub

Michael007 · #2 02-01-2011, 01:57 PM

Paul,

it works fine. One last question, let's suppose that I have several words that I wish to change in red, should I repeat all the commands as many time as the number of words or there is short-cut to do that?

Thank you
Michael

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
"Change Word Options" don't change	ADKREV	Word	0	11-12-2010 10:56 AM
How to make styles defined in one document available to ALL other documents, period.	wornways	Word	1	08-05-2010 09:09 PM
Change Default Font Word	datuk.ahmad	Word	3	03-09-2010 04:47 PM
TOC printing Error Bookmark not Defined	techexpressinc	Word	0	12-14-2008 05:24 PM
Defined Views in Tasks	Inga	Office	3	07-20-2005 07:10 AM