Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

25 Февраль 2021, 00:11 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Вы можете задать вопрос по LibreOffice или Apache OpenOffice без регистрации, используя форму
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Программно управлять встроенным OLE документом  (Прочитано 2237 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Андрей2013
Новичок
*
Offline Offline

Сообщений: 1


« Стартовое сообщение: 7 Ноябрь 2014, 23:41 »

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

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

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

Поделитесь плиз, если кто пропахал этот вопрос.
« Последнее редактирование: 8 Ноябрь 2014, 01:49 от Андрей2013 » Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!