Может я неправильно задала вопрос...? извините.
В БД"Парус" есть пользовательские приложения, которые на пишутся VB. И присоединённые документы.Нужно при печати из БД, чтобы открывался WORD, и печаталась определённая картинка из присоединённых документов. Пишу
Sub CheckDocTypeName()
Query.Sql.Text = "select TEMPLATE FROM FILELINKS_DATA fd.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 --это поле рисунка
R.? =Picture1
End Sub
Как объявить поле, чтобы в WORD вставилась картинка из БД?