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

Имеется задача поиска тектса в таблице, с дальнейшим копированием содержимого всей строки на отдельный лист.Таблица представляет собой что-то типа прайс-листа, и требуется все позиции в названии которых есть определенное слово копировать на отдельный лист.На данный момент застрял на следующем коде:Код:Sub MainDim Doc As ObjectDim Sheet As ObjectDoc = StarDesktop.CurrentComponentIf Doc.Sheets.hasByName("Таблица") Then Sheet = Doc.Sheets.getByName("Таблица")end ifsearch = Sheet.createSearchDescriptor()rem В дальнейщем запросы будут содержать регулярные выраженияsearch.SearchRegularExpression = Truesearch.SearchString = "бумага"Found = Sheet.findFirst(Search)do until isnull(Found)rem Выделение жирным поставил для отладки, вместо него надо создать копирование всей строки на отдельный лист Found.CharWeight = com.sun.star.awt.FontWeight.BOLD Found = Sheet.findNext(Found, Search)loopEnd SubДанный код успешно ищет позиции по запросу и выделяет их жирным. А вот как получить у найденного объекта координаты для копирования не знаю.Подскажите.
Ответить с цитированием
Ответ



Похожие вопросы
Тема Автор Раздел Ответов Последний вопрос или ответ
Оптимизация запроса(Поиск и копирование похожих строк) Guest Продолжение старого архива 0 16.10.2011 14:58
копирование из CALC to WRITER Guest Новые вопросы и ответы 4 0 28.09.2011 06:34
Копирование/вставка writer(.odt)<->calc(.ods) Guest Ещё вопросы и ответы из архива 7 0 28.09.2011 03:24
Копирование из 1С в Calc кириллица. Guest Продолжение нового архива 0 28.09.2011 03:22
Копирование из Calc в Evolution Guest Новый архив 3 0 27.09.2011 18:43



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