Вставить рисунок в MS Word

    // Добавил через "Insert -> Picture -> From File"
    App.OlePropertyGet("Selection").OlePropertyGet("InlineShapes").OleProcedure
        ("AddPicture", WideString("D:\\test\\1.jpg"), False, True);
    // Получил индекс только что добавленной InlineShape
    int index = document.OlePropertyGet("InlineShapes").OlePropertyGet("Count");
    // По этому индексу вытянул саму InlineShape
    Variant Picture = document.OlePropertyGet("InlineShapes").OleFunction
        ("Item", index);
 
    // Сконвертировал InlineShape -> Shape, потому что обтекание - это именно свойство Shape
    Variant PictureShape = Picture.OleFunction("ConvertToShape");
    // И выставил обтекание в нужное (я для теста взял Wrap Through)
    PictureShape.OlePropertyGet("WrapFormat").OlePropertySet("Type",
        WdWrapType::wdWrapThrough); // или просто (Variant)3

    // И выставил обтекание в нужное (я для теста взял Wrap Through)
    PictureShape.OlePropertyGet("WrapFormat").OlePropertySet("Type",WdWrapType::wdWrapThrough); // или просто (Variant)3

 void Variant::OlePropertySet(const String& name, P1 p1)
  {
    TAutoArgs<1> args;
    args[1] = p1;
    OlePropertySet(name, static_cast<TAutoArgsBase&>(args));
  }

    const int opt = WdWrapType::wdWrapThrough;
    PictureShape.OlePropertyGet("WrapFormat").OlePropertySet("Type", opt);

    const int opt = (int)WdWrapType::wdWrapThrough;
    PictureShape.OlePropertyGet("WrapFormat").OlePropertySet("Type", opt);

    const int opt = 2; // Значение wdWrapThrough
    PictureShape.OlePropertyGet("WrapFormat").OlePropertySet("Type", opt);