Из VB приложения создать документ Word с текстом и картинкой

[shest]

Мне нужно из VB приложения создать документ Word с текстом и картинкой.
Текст из строковой переменной вывожу так:

Dim objWord As New Word.Application

'— Выводит Microsoft Word
objWord.Visible = True

'— Добавляет новый документ
objWord.Documents.Add

'— Вводит текст в документ
objWord.Selection.TypeText Text1.text

Затем макрос выводит картинку

Selection.InlineShapes.AddPicture FileName:= _
"C:\ris.bmp", _
LinkToFile:=False, SaveWithDocument:=True

Но этот код работает один раз (т.е. выводит текст и картинку), во второй раз выводится ошибка Run-time error 462: The remote server machine does not exist or is unavailable
Подскажите, пожалуйста, что добавить надо.
И тут же второй вопрос: макрос указывает конкретный адрес картинки, но ведь пользователь программу может проинсталлировать куда ему угодно, опять ошибка будет.
Заранее благодарен.

[Марина]

У меня есть sample, который открывает Word Document, я могу переслать его тебе- может он поможет.

[RayShade]

Выводи ему FileDialog чтобы он сам выдирал откуда ему что вставлять:



Set dlg = objWord .filedailog(msodialogfileopen)

dlg.allowmultiselect = false

dlg.filters.add "Bitmap files |*.bmp"

dlg.cancelerror = false

dlg.show

if dlg.selecteditems(1)<>"" then 'это значит что юзер что то выбрал.



end if



а насчет того что ошибка, так проверь не убиваешь ли ты где потом этот объект сам objWord

[shest]

Я привёл весь код процедуры. Вроде нигде не убивается.
А вообще идея в авто создании документа с картинкой, поэтому comdlg я вводить бы не хотел.
Не работает макрос (т.е. работает только один раз). Без макроса документ word создаётся без проблем (только текст без картинки).
Может другие способы есть вывода картинки в Ворде?

[RayShade]

Вообще то их можно вставлять еще через InsertFile

[shest]

А это как?

[RayShade]

Опс.. Это я кажется ошибся. InsertFile вставляет не картинки а документы...