Список форумов Форум Libreoffice

Форум Libreoffice

Добро пожаловать на Форум Libreoffice!
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

English French German Italian Portuguese Russian Spanish
Как найти нужный текст в Writer'е и заменить его другим?

 
Начать новую тему   Ответить на тему    Список форумов Форум Libreoffice -> Basic
Предыдущая тема :: Следующая тема  
Автор Сообщение
YudinAlex



Репутация: 0    

Зарегистрирован: 11.07.2013
Сообщения: 22

СообщениеДобавлено: Пн Авг 19, 2013 10:12 am    Заголовок сообщения: Как найти нужный текст в Writer'е и заменить его другим? Ответить с цитатой

В Ворде это
Код:
.WholeStory
.COPY

...

.FIND.Execute('lcSub,.F.,.F.,.F.,.F.,,,1,,lcResult)

Вернуться к началу
Посмотреть профиль Отправить личное сообщение
YudinAlex



Репутация: 0    

Зарегистрирован: 11.07.2013
Сообщения: 22

СообщениеДобавлено: Вт Авг 20, 2013 1:40 pm    Заголовок сообщения: Ответить с цитатой

Не срабатывает
Код:
local laArg(19)
laArg(1) = .SetProp("SearchItem.StyleFamily",2,1)
laArg(2) = .SetProp("SearchItem.CellType",0,2)
laArg(3) = .SetProp("SearchItem.RowDirection",.t.,3)
laArg(4) = .SetProp("SearchItem.AllTables",.f.)
laArg(5) = .SetProp("SearchItem.Backward", .f.)
laArg(6) = .SetProp("SearchItem.Pattern", .f.)
laArg(7) = .SetProp("SearchItem.Content",.f.)
laArg(8) = .SetProp("SearchItem.AsianOptions", .f.)
laArg(9) = .SetProp("SearchItem.AlgorithmType",0)
laArg(10) = .SetProp("SearchItem.SearchFlags",65536)
laArg(11) = .SetProp("SearchItem.SearchString",lcSub)
laArg(12) = .SetProp("SearchItem.ReplaceString", lcResult)
laArg(13) = .SetProp("SearchItem.Locale",255)
laArg(14) = .SetProp("SearchItem.ChangedChars",2)
laArg(15) = .SetProp( "SearchItem.DeletedChars",2)
laArg(16) = .SetProp("SearchItem.InsertedChars",2)
laArg(17) = .SetProp("SearchItem.TransliterateFlags",1280)
laArg(18) = .SetProp("SearchItem.Command",2)
laArg(19) = .SetProp("Quiet",.t.)

.loDispatcher.executeDispatch( .loDesktop, ".uno:ExecuteSearch", "", 0, @laArg)

Здесь lcSub - что менять, lcResult - на что.
Ошибку не выдает, но и не выполняет
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
hasim



Репутация: 0    

Зарегистрирован: 28.05.2012
Сообщения: 32

СообщениеДобавлено: Вт Авг 20, 2013 2:16 pm    Заголовок сообщения: Ответить с цитатой

По этой ссылке обсуждались способы поиска и замены (и это относится не только к пустым абзацам, а, вообще к любому тексту):
Найти и заменить: "пустой абзац" на ""-?
И, если нужно очень мощное решение в виде соответствующих функций для макроса, то следует посмотреть, как нужные функции реализованы в указанном там же расширении AltSearch (просто раскурочить его и изучить внутренности).

Мне не нужно было заменять текст с помощью макроса, заменял только интерактивно с AltSearch, поэтому сам этого не делал.
Возможно,кто-то делал на других форумах, поспрашивайте там подробности.
_________________
Стильные предметы интерьера
http://dilash.ru
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
YudinAlex



Репутация: 0    

Зарегистрирован: 11.07.2013
Сообщения: 22

СообщениеДобавлено: Вт Сен 03, 2013 6:45 am    Заголовок сообщения: Ответить с цитатой

C отпуска вышел, нашел неточность и все заработало.
Спасибо за ответы, особенно за ссылки
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Форум Libreoffice -> Basic Часовой пояс: GMT
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group
Вы можете бесплатно создать форум на MyBB2.ru, RSS