Понадобилось удалить все гиперссылки из документа, вариант с применением форматирования по умолчанию не подходил. Попытался нагуглить решение в рунете – быстро этого сделать не удалось, поэтому на всякий случай создам запись с решением с зарубежного форума.
Нужно создать и выполнить макрос с таким кодом:
Sub Main oDoc = ThisComponent enum1 = oDoc.Text.createEnumeration While enum1.hasMoreElements thisPara = enum1.nextElement enum2 = thisPara.createEnumeration While enum2.hasMoreElements thisPortion = enum2.nextElement thisPortion.HyperlinkTarget = "" thisPortion.HyperLinkURL = "" Wend Wend End Sub
Спасибо
Я решил проблему по-другому (в моём документе все ссылки были выделены цветом и подчеркиванием):
«Найти и заменить»
В строке поиска пишем (надо включить регулярные выражения):
.*
ставим «Формат – Эффекты шрифта – одинарное подчеркивание»
Найти всё…
Все гиперссылки найдены! Жмём Ctrl+M – гиперссылок нет!
Можно, заодно, поставив в поле замены & с нужным форматом, пометить бывшие гиперссылки цветом и т.д.
Спасибо за макрос, очень помогло
Спасибо за макрос.Помогло
Спасибо!Помогло ctrl+M))