Подскажите пожалуйста, как выгрузить картинку из БД Oracle, если Visual Basic в базе, как скрипт и вставить в WORD.

Да, конечно. БД"Парус",в ней есть присоединённые документы, которые нужно печатать свои для каждой накладной. В базе есть модуль-пользовательское приложение, скрипт пишется на VB.Нужно сделать запрос, где каждая накладная соединяется с присоединённым документом, и после печати накладной, чтобы в WORD выводились сертификаты,т.е. картинки из присоединённых док-ов. Как вставить в Word текст по запросу, понятно, а как картинку?
Пишу
Query.Sql.Text = "select fd.TEMPLATE FROM FILELINKS_DATA FD,FILELINKS F,FILELINKSUNITS FL,CERTIFICATION C where F.RN=FD.PRN and F.RN=FL.FILELINKS_PRN and FL.TABLE_PRN=C.RN and c.rn=" & Document
Set WordApp = CreateObject("Word.Application")
WordApp.Visible =1
Set TheWordDoc = WordApp.Documents.Add
Set R = TheWordDoc.Range(0, TheWordDoc.Characters.Count)
Picture1 = Query.FieldByName("TEMPLATE").Value
а дальше?
Пожалуйста помогите...

В базе это поле представлено как тип LONG ROW, нужно попробовыть сохранить, а потом считать?

Пишу
Sub CheckDocTypeName()
Query.Sql.Text = "select fd.TEMPLATE FROM FILELINKS_DATA FD,FILELINKS F,FILELINKSUNITS FL,CERTIFICATION C where F.RN=FD.PRN and F.RN=FL.FILELINKS_PRN and FL.TABLE_PRN=C.RN and c.rn=" & Document
Query.Open
Set WordApp = CreateObject("Word.Application")
WordApp.Visible =1
Set TheWordDoc = WordApp.Documents.Add
Set R = TheWordDoc.Range(0, TheWordDoc.Characters.Count)
Picture1 = Query.FieldByName("TEMPLATE").Value
SavePicture Picture1.Picture, "c:\pic.bmp"
R = LoadPicture("c:\pic.bmp" )
Set R = Nothing
WordApp.Quit True
End Sub

Выдаёт ошибку
Ошибка выполнения Microsoft VBScript
Требуется объект: 'Picture1'
Строка:18, Столбец:1.