Имеется задача поиска тектса в таблице, с дальнейшим копированием содержимого всей строки на отдельный лист.Таблица представляет собой что-то типа прайс-листа, и требуется все позиции в названии которых есть определенное слово копировать на отдельный лист.На данный момент застрял на следующем коде:Код: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Данный код успешно ищет позиции по запросу и выделяет их жирным. А вот как получить у найденного объекта координаты для копирования не знаю.Подскажите.
|