Need help with a macro

[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

[Debra Dalgleish]

You could loop through the paragraphs, e.g.:

'==============================
Sub TestFormat()
Dim i As Integer

Selection.HomeKey unit:=wdStory
For i = 1 To ActiveDocument.Paragraphs.Count
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
i = i + 1
Next i
End Sub
'=============================

Bill Allen wrote:
> 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
>
>
>
>


--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html