Обтекание картинки текстом

Сергей интересуется:

Сделать обтекание текстом возможно. Но лишь после того, как рисунок будет переконвертирован в графический объект.

Здесь следует объяснить, что в редакторе Word различаются два типа графических объектов: рисунки (например, фотографии или иные объекты, вставленные в документ из файла) и, собственно, объекты (автофигуры, надписи и другие объекты, которые создаются в самом редакторе или в векторных редакторах).

Так вот, если нужно сделать обтекание текстом для рисунка, то первоначально его необходимо переконвертировать. Ниже представлен код, который выделяет первый рисунок в документе и делает для него обтекание.

Если нужно сделать обтекание для УЖЕ выделенного рисунка, то используйте второй код макроса.

Первый вариант (выделяет 1-й рисунок в документе и делает обтекание текстом для него):

Sub imgtoshape()
Dim selPic As Object
Set selPic = ActiveDocument.InlineShapes(1)
selPic.Select
With Selection
   .InlineShapes(1).ConvertToShape
   .ShapeRange.WrapFormat.Type = wdWrapSquare
End With
End Sub

Второй вариант (делает обтекание текстом для выделенного рисунка):

Sub imgtoshape2()
With Selection
   .InlineShapes(1).ConvertToShape
   .ShapeRange.WrapFormat.Type = wdWrapTight
End With
End Sub