VBA to replace marching red ants with yellow highlight?

Hi all,

I'm exploring VBA for Excel, learning a lot. But have even further to go
with word. I'm editing specifications, and to "make it easy" on the person I
need to send these back to, I set the font of all areas I needed input on to
"Marching Red Ants".

The problem is, is this guy is very old school, and a dinosaur of the days
of ink and paper. So I now need to print these up and give them to him. I
have dozens of documents with sporadic modifications done; selecting each
section of Marching Red Ants would be more tedious than when I first put them
there.

Can you point me in the right direction of what the scipt ought to be, or
better yet, post it here? Thanks!

Jean-Guy
Fri Nov 02 19:15:23 PDT 2007

stir-crazy was telling us:
stir-crazy nous racontait que :

> Hi all,
>
> I'm exploring VBA for Excel, learning a lot. But have even further
> to go with word. I'm editing specifications, and to "make it easy"
> on the person I need to send these back to, I set the font of all
> areas I needed input on to "Marching Red Ants".
>
> The problem is, is this guy is very old school, and a dinosaur of the
> days of ink and paper. So I now need to print these up and give them
> to him. I have dozens of documents with sporadic modifications done;
> selecting each section of Marching Red Ants would be more tedious
> than when I first put them there.
>
> Can you point me in the right direction of what the scipt ought to
> be, or better yet, post it here? Thanks!

Here is a little something to get you going...

'_______________________________________
Dim docSource As Document
Dim docNew As Document
Dim rgeDoc As Range

Set docSource = ActiveDocument
Set docNew = Application.Documents.Add
Set rgeDoc = docNew.Range

With docSource.Range.Find
.Text = ""
.Font.Animation = wdAnimationMarchingRedAnts
Do While .Execute
rgeDoc.InsertAfter .Parent.Text & vbCrLf
Loop
End With
'_______________________________________

--

Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org

Helmut
Sat Nov 03 03:48:09 PDT 2007

Hi,

for the highlighting part of your question.

Sub Test8223()
Dim rDcm As Range
Set rDcm = ActiveDocument.Range
With rDcm.Find
.Font.Animation = wdAnimationMarchingRedAnts
While .Execute
rDcm.HighlightColorIndex = wdYellow
Wend
End With
End Sub

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

stircrazy
Mon Nov 05 12:49:00 PST 2007

Jean-Guy, Helmut,

Thank you! This looks great; can't wait to try it out. I greatly
appreciate the input from you both!

"Helmut Weber" wrote:

> Hi,
>
> for the highlighting part of your question.
>
> Sub Test8223()
> Dim rDcm As Range
> Set rDcm = ActiveDocument.Range
> With rDcm.Find
> .Font.Animation = wdAnimationMarchingRedAnts
> While .Execute
> rDcm.HighlightColorIndex = wdYellow
> Wend
> End With
> End Sub
>
> --
> Greetings from Bavaria, Germany
>
> Helmut Weber, MVP WordVBA
>
> Win XP, Office 2003
> "red.sys" & Chr$(64) & "t-online.de"
>