Обтекание - в тексте - VBA

Формулировка задачи:

Доброго времени! Такая проблема, как можно всем элементам ворда сделать обтекание - в тексте всем элементам? Все перерыл нету, а то у меня после обработки они слетают и вообще не красиво получается. Ниже прикладываю пример. И здесь же нашел код, какой то парень делал, но у меня почему то не работает.

Sub convertShapeToInlineShape()
Dim iShape As Shape
For Each iShape In ActiveDocument.Shapes
If iShape.Type = msoPicture Then
iShape.ConvertToInlineShape
End If
Next iShape
End Sub

Решение задачи: «Обтекание - в тексте»

textual
                            Листинг программы 
                        

                            Sub convertShapeToInlineShape()
    Dim iShape As Shape
    For Each iShape In ActiveDocument.Shapes
        If iShape.Type = msoPicture Then
            iShape.ConvertToInlineShape
        Else
            iShape.WrapFormat.Type = wdWrapInline
        End If
    Next iShape
End Sub
                        