If they're all in line, this version *should* work:
Sub InlineToSquare()
Dim idx As Long
Dim ils As InlineShape
Dim shp As Shape
For idx = ActiveDocument.InlineShapes.Count To 1 Step -1
Set ils = ActiveDocument.InlineShapes(idx)
Set shp = ils.ConvertToShape
shp.WrapFormat.Type = wdWrapSquare
shp.Rotation = 359#
Next
End Sub
Unfortunately, when I run it, I get an error saying that the
ConvertToShape method failed. From Google I'm finding a lot of posts
saying that people got the error, but absolutely nothing about how to
fix it or work around it.
If the macro works for you, that's great, and good luck. If you get
the same error, you're left to go through the document's pictures one
by one, clicking the image to select it and clicking the Text Wrapping
button on the Picture toolbar and choosing Square. After that tedious
job is complete, you can run the first macro I posted.
--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.