Документ открывается в OLE CONTROL в приложении Power Builder.
Программно в него добавляется картинка с подписью пациента и сопутствующая информация.
Пользователь может удалить картинку с подписью.

Как можно это отловить, например при сохранении документа?
Нужно в этом случае добавить соответствующий текст в документ.

Спасибо за идею.

А можно как-то поименовать картинку и потом искать по имени?
Искомая картинка может быть не первой.

Казанский

Спасибо!

Работает,в Power Builder синтаксис своеобразный и не все типы данных поддерживаются.
Но вроде разобрался.

Уткнулся в простой казалось бы вопрос - как
добавить файл с подписью в конец документа?
Пытался так

This.ole_word.Object.Application.ActiveDocument.Content.InsertParagraphAfter()
This.ole_word.Object.Application.Selection.InsertFile (ls_sign_temp)

Вот фрагмент по вставке рис.

If lole_Word.ActiveDocument.Bookmarks.Exists("signature_image") = True Then
lole_Word.ActiveDocument.Bookmarks.Item("signature_image").Select()
lole_Word.Application.Selection.InlineShapes.AddPicture(is_sign_filename, False, True)
ll_count = lole_Word.ActiveDocument.InlineShapes.Count
if ll_count > 0 then
lole_Word.ActiveDocument.InlineShapes[ll_count].AlternativeText = is_sign_image_name //'signature_image'
lole_Word.ActiveDocument.Bookmarks.Item("signature_image").Delete()
end if
End If

Картинка вставляется, но счетчик не меняется:

lole_Word.ActiveDocument.InlineShapes.Count = 0

lole_Word.ActiveDocument.Shapes.Count тоже не меняется(2 надписи как были так и есть).

Как тогда добраться до вновь вставленного объекта?

Поэкспериментировал, оказалось причина в том, что закладка установлена внутри надписи.

Если вставлять рисунок просто в текущую позицию, то счетчик отрабатывает нормально.

Но хотелось бы оставить надпись как контейнер для блока с подписью.

Может быть кому пригодиться - нужно в цикле по всем Shapes документа
выделять их и затем искать картинку внутри TextBox.

Скрипт на Power Builder

// to check if exists sign image in document marked with AlternativeText = as_var
Long ll_count, ll_count_in_shape
Long ll_i, ll_j
Boolean lb_exists

ll_count = This.ole_word.Object.Application.ActiveDocument.Shapes.Count
FOR ll_i = 1 TO ll_count
This.ole_word.Object.Application.ActiveDocument.Shapes[ll_i].Select()
ll_count_in_shape = This.ole_word.Object.Application.Selection.InlineShapes.Count
FOR ll_j = 1 TO ll_count_in_shape
If This.ole_word.Object.Application.Selection.InlineShapes[ll_j].AlternativeText = as_var Then
lb_exists = true
exit
end if
NEXT
NEXT