Ответ
 
Опции вопроса Поиск в этом вопросе Опции просмотра
  #1  
Старый 29.09.2011, 23:28
Аватар для Guest
Guest
Вопрос
Сообщений: n/a
По умолчанию

Здравствуйте!Помогите пожалуйста, хочу перебрать в доке абзатцы, не получается! Код:Sub MainDim Doc As Object Dim Enum As ObjectDim TextElement As Object' создание объекта documentDoc = StarDesktop.CurrentComponent' создание объекта enumerationEnum = Doc.Text.createEnumeration 'на этой строке выдает ошибку "Свойство или метод не найдены"' цикл по всем текстовым элементамWhile Enum.hasMoreElementsTextElement = Enum.nextElement If TextElement.supportsService("com.sun.sta r.text.TextTable") Then MsgBox "The current block contains a table." End If If TextElement.supportsService("com.sun.sta r.text.Paragraph") Then MsgBox "The current block contains a paragraph." End IfWendEnd Sub
Ответить с цитированием
Ответ



Похожие вопросы
Тема Автор Раздел Ответов Последний вопрос или ответ
Скрипт для сохранения текущего документа в html странички Guest Новый архив 3 0 29.09.2011 23:56
Как из макроса изменить xml структуру текущего документа Guest Новый архив 2 0 29.09.2011 23:42
Экспорт текущего документа в текстовый формат Guest Продолжение нового архива 0 29.09.2011 23:39
writer.Как выборочно напечатать страницу документа Guest Третий архив вопросов и ответов 0 29.09.2011 22:29
Свойства документа в WRITER не открываются OO 3.2.1 Guest Продолжение нового архива 0 29.09.2011 02:34



© www.otvetnemail.ru - Форум вопросов и ответов.