Changing picture wrap text to Square

[Yonatanx3]

Hi guys,


I have many word files with 100 or more pictures inserted inside each of them.
Right now, all of the pictures are In Line with Text layout, and I need to change them all to Square option.
Can someone please help me and write down a VBA code that will change all the pictures in a word file please?
Thanks alot, Yonatan.

[macropod]

Try:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument
  While .InlineShapes.Count > 0
    .InlineShapes(1).ConvertToShape
  Wend
End With
Application.ScreenUpdating = True
End Sub

[macropod]

Cross-posted at: http://www.vbaexpress.com/forum/show...text-to-Square
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184