Добрый всем день,
Вывожу вордовский док из 1С, в нем есть картинка, которую ставлю программно, какое свойство отвечает за обтекание текста ?
Т.е. нужно чтобы была картинка, а по ней шел текст.

Делать под каждый вариант макет - влом.
Спасибо!

Лет так 20 назад еще офис 4 или 5 , запускал запись макроса и потом в коде макроса смотрел.

вот тут наверно есть

Sub Макрос1()
'
' Макрос1 Макрос
'
'
    ActiveDocument.Shapes.AddShape(msoShapeRectangle, 74.25, 179.25, 231.75, _
        118.5).Select
    Selection.ShapeRange.IncrementLeft 125.25
    Selection.ShapeRange.IncrementTop 12#
    Selection.ShapeRange.IncrementLeft -91.5
    Selection.ShapeRange.IncrementTop -13.5
    Selection.ShapeRange.IncrementLeft -44.25
    Selection.ShapeRange.IncrementTop -5.25
    Selection.ShapeRange.IncrementLeft 54.75
    Selection.ShapeRange.ZOrder msoSendBehindText
    WordBasic.DrawSendBehindText
    Selection.ShapeRange.IncrementLeft 53.25
    Selection.ShapeRange.IncrementLeft 70.5
    Selection.ShapeRange.IncrementTop 3.75
    Selection.ShapeRange.IncrementLeft -83.25
    Selection.ShapeRange.IncrementTop -5.25
    Selection.ShapeRange.ScaleWidth 0.79, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.94, msoFalse, msoScaleFromBottomRight
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Line.Weight = 0.75
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Rotation = 0#
    Selection.ShapeRange.Left = 159#
    Selection.ShapeRange.Top = 178.55
    Selection.ShapeRange.RelativeHorizontalPosition = _
        wdRelativeHorizontalPositionColumn
    Selection.ShapeRange.RelativeVerticalPosition = _
        wdRelativeVerticalPositionParagraph
    Selection.ShapeRange.RelativeHorizontalSize = wdRelativeHorizontalSizePage
    Selection.ShapeRange.RelativeVerticalSize = wdRelativeVerticalSizePage
    Selection.ShapeRange.Left = CentimetersToPoints(2.61)
    Selection.ShapeRange.LeftRelative = wdShapePositionRelativeNone
    Selection.ShapeRange.Top = CentimetersToPoints(0.71)
    Selection.ShapeRange.TopRelative = wdShapePositionRelativeNone
    Selection.ShapeRange.WidthRelative = wdShapeSizeRelativeNone
    Selection.ShapeRange.HeightRelative = wdShapeSizeRelativeNone
    Selection.ShapeRange.LockAnchor = False
    Selection.ShapeRange.LayoutInCell = True
    Selection.ShapeRange.WrapFormat.AllowOverlap = True
    Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
    Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
    Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
    Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
    Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
    Selection.ShapeRange.WrapFormat.Type = 3
    Selection.ShapeRange.ZOrder 5
    Selection.ShapeRange.IncrementLeft -60.75
    Selection.ShapeRange.IncrementTop -9.75
End Sub

Selection.ShapeRange.WrapFormat.Type = 3

v8: v8: Как добавить картинки в Word из 1С

Пожалуйста