Вставить программно изображение в word-документ

[Mileyko]

Возможно, кому-нибудь будет полезна функция вставки изображения из файла в word-документ. Лично я не смог найти какую-нибудь тему или решение этой проблемы на форуме. Если у кого-то будут вопросы, пожалуйста, задавайте.

public void VTHm_InsertImage(str _bookmark, str _fileName)

Здесь,
_bookmark – Название закладки в word-документе
_fileName – Имя файла изображения

Собственно, код:

public void VTHm_InsertImage(str _bookmark, str _fileName)
{
    #define.InsImgSub("VTHm_InsImg")
    COM vbMdl;
    COM vbCode;
    COM vbp;
    COM vbc;
    ;
    if (!m_comApplication)
    {
        throw error(strfmt("@GEE6406", this.getApplicationName()));
    }
    if (!m_comDocument)
    {
        throw error(strfmt("@GEE6401", this.getApplicationName()));
    }
    vbp = m_comDocument.VBProject();
    vbc = vbp.VBComponents();
    vbMdl = vbc.Add(1);
    vbCode = vbmdl.CodeModule();
    vbCode.InsertLines(vbCode.CountOfLines() + 1, strFmt('Sub %1()', #InsImgSub));
    vbCode.InsertLines(
            vbCode.CountOfLines() + 1
            , strFmt(
                'ActiveDocument.Bookmarks.Item("%1").Range.InlineShapes.AddPicture ("%2")'
                , _bookmark
                , _fileName
                )
            );
    vbcode.InsertLines(vbCode.CountOfLines() + 1, 'End Sub');
    m_comApplication.Run(#InsImgSub);
}

[Mileyko]

Забыл добавить, что метод добавляется в класс ComWordDocument_RU

[vanokh]

Зачем такой изврат? Создавать макрос, который вставляет картинку? Можно же напрямую из кода:

    ComWordDocument_RU  word;
    COM                 com;
    ;

    word = new ComWordDocument_RU();
    word.newFile(<  >, false, false);
    
    com = word.getComDocument();
    com = com.Bookmarks();
    com = com.Item(<>);
    com = com.Range();
    com = com.InlineShapes();
    com = com.AddPicture(<  >);
    
    com.finalize();
    
    word.Visible(true);
    word.finalize();

Можно аналогично вставить в ComWordDocument_RU.

[Mileyko]

Я согласен, что ваш код более элегантен и более безопасен (не требуется разрешение выполнения макросов). К сожалению, я плохо знаю com-модель офиса, поэтому я написал код на vbaдля решения этой задачи. Спасибо за комментарий, буду иметь в виду ваше решение.

[vanokh]

Имейте в виду на будущее и то, что практически любой макрос VBA можно переписать в таком виде для Аксапты