Help with a macro

  • Thread starter Thread starter Bill Allen
  • Start date Start date
B

Bill Allen

Sorry if this is an inappropriate post for this area, but I'm not getting
very much of a response at the Word.vba site.

When copying text from the IDE into a Word document, I would like to have
the format match the format in the IDE, specifically changing the color of
the font of the commented lines. I have written the following which does
what I want for a particular line:

Selection.Find.ClearFormatting
With Selection.Find
.Text = "'"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True

End With

Selection.Find.Execute

With Selection

.EndKey Unit:=wdLine, Extend:=wdExtend
.Font.Color = wdColorGreen
.MoveDown Unit:=wdLine, Count:=1
.HomeKey Unit:=wdLine

End With

As you might have guessed, this works one instance at a time. It finds the
next instance of "*", changes the entire line to green, moves one line down,
goes to the first character position in that line and stops.

What do I need to add to make this routine check the entire document?

Thanks,

Bill Allen
 
Back
Top