Народ нужна помощь при экспорте в Word.
Вобщем дело так есть форма на которой картинка и поля,поля выкидывает в Word, а незнаю что написать на картинку, помогите плизз.
Зарание благодарен.
вот код как вывожу чисто текст:
#DEFINE False .F.
#DEFINE True .T.
objword=CreateObject("word.application")
objword.application.visible=.t.
objword.documents.add("Normal",.F.)
objword.selection.typetext(" ФИО")
objword.selection.typetext(" Дата")
objword.selection.typetext(" История")
objword.activedocument.tables.add(objword.selection.range, 1,4)
tbl=objword.activedocument.tables(1)
tbl.cell(1,1).range.insertafter(thisform.combo1.value )
tbl.cell(1,2).range.insertafter(thisform.txtData_vix_albom .value )
tbl.cell(1,3).range.insertafter(thisform.edtIstor_gryp.value )
вот препод посаветовал как бы сделать сначала в Word, а потом в Fox закинуть
вот тоже код в ворде как добавляется картинка на лист
objword.ActiveDocument.InlineShapes.AddOLEObject(objword.ClassType:="Forms.Image.1", DisplayAsIcon:=False, Range:=ActiveDocument.Paragraphs(2).Range)
Помогите плизззз курсач горит,немогу закончить из-за этой фишки

Maltsev MaxУ VBA есть 2 варианта вызова функций.

и

Нажми на функции кнопочку F1
и почитай, что значит каждый параметр ...


Вообщем мне надо на Фоксе, есть перемещение на форме, и там меняются записи в полях и картинка, мне надо их закинуть в Ворд.

Maltsev MaxДык я тебе про это и говорю....

Твой код не работает !??
Ошибку выдает ?!?

А в ошибке написано, что он не знает такой команды:

Потому что синтаксис у нее немного другой.

Да и вообще, похоже ты не ту команду используешь ...
мой код отработал на Ура.




так я понимаю, что так можно это я знаю, но мне надо чтобы картинку не диска брала, а с формы!
Знаеш как это сделать?

Это работает пасиб, но опять не то мне нужно через поля генерал. Вот пример глянь плизз ))

так кто нибудь знает как это сделать?

все всем пасиб, проблему уже сам устранил! ))

q=CREATEOBJECT('Word.Application')
qwe=q.Documents.Add
qwe.InlineShapes.AddPicture(thisform.olbGimag.DocumentFile, .f., .t.,)
q.Visible=.t.
Вот так olbGimag - это поле генерал, т.е картинка на форме.