Программно управлять встроенным OLE документом

[Андрей2013]

Доброго времени суток, господа!
Прошу помочь, если кто сталкивался.

Имеем лист Calc, в который в виде значка встроен документ Writer
Необходимо в этом встроенном документе, при помощи Basic, программно изменить текст и распечатать.

Аналогичная задача в Excel решается так:

Код Выделить Развернуть


Sub Test    
   Worksheet1.OLEObjects("МойДокумент").Verb Verb:=xlOpen    'командуем - открыть встроенный файл в его родном редакторе
   Set objWord = GetObject(, "Word.Application")             'поскольку мы знаем заранее, что встроен вордовский файл, сразу ловим запустившийся при открытии Word
   Set myDocument = objWord.ActiveDocument                   'здесь ловим только что открытый документ, и можем рулить им теперь как хотим
End Sub


Поделитесь плиз, если кто пропахал этот вопрос.