Macro for WordArt?

[Terry Pinnell]

Does anyone know of a macro to do the following please?

Start with a 5 page doc WordArt.doc containing WordArt entries of
various types and colours. The text string is identical in each case.
I want to change the text just once, to get a fully revised document.
IOW, instead of selecting each entry one by one and using Edit Text,
which would be very tedious.

Any help would be much appreciated please.

 

[Greg Maxey]

Terry,

Try:

Sub Scratchmacro()
Dim oShape As InlineShape
For Each oShape In ActiveDocument.InlineShapes
oShape.TextEffect.Text = "Your New Text"
Next
End Sub

 

[Terry Pinnell]

Terry,

Try:

Sub Scratchmacro()
Dim oShape As InlineShape
For Each oShape In ActiveDocument.InlineShapes
oShape.TextEffect.Text = "Your New Text"
Next
End Sub

Thanks Greg, will try that asap, and report back.