Macro to loop in Word

Yamaha Rider · #1 02-06-2012, 11:31 AM

I have the word document that I want to color a particular wird a certain way. Attached is a sample with the Macro that I wrote. I now need to loop this macro throughout the document so does this throughtout hte document. Can somebody help me?

Here is what I have

Code:

Selection.Find.ClearFormatting
With Selection.Find
  .Text = "gopost`"
  .Replacement.Text = ""
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchCase = False
  .MatchWholeWord = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
Selection.Font.color = wdColorRed
Selection.Font.Bold = wdToggle
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=4, Extend:=wdExtend
Selection.Font.color = 5296274
Selection.Font.Bold = wdToggle
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Font.color = wdColorRed
Selection.Font.Bold = wdToggle
Selection.MoveRight Unit:=wdCharacter, Count:=1
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
How to use for loop in formula in VBA?	tinfanide	Excel Programming	1	12-06-2011 08:33 AM
WORD Macro - import picture - resize - position - page break - loop	Nano07	Word VBA	2	11-02-2011 05:14 AM
Macro to loop in subfolders, change links, export xml data	Catalin.B	Excel Programming	2	09-08-2011 11:37 PM
Continuous Loop	cksm4	Word	6	01-06-2011 09:03 PM