Макросы для Writer
Материал из Forumooo wiki
(Различия между версиями)
Rami (Обсуждение | вклад) |
Rami (Обсуждение | вклад) |
||
| Строка 1: | Строка 1: | ||
{{DISPLAYTITLE: Макросы для Writer}} | {{DISPLAYTITLE: Макросы для Writer}} | ||
| - | |||
| - | |||
| - | |||
| - | |||
===Как удалить все графические объекты в документе Writer=== | ===Как удалить все графические объекты в документе Writer=== | ||
Версия 08:22, 31 января 2017
Как удалить все графические объекты в документе Writer
Sub Main With ThisComponent For i=0 to .GraphicObjects.Count-1 .GraphicObjects(0).dispose() Next End With End Sub
Выполнить макрос по клику на ссылке
Гиперссылке можно назначить макрос. Для этого есть кнопка События в дополнительных настройках диалога изменения гиперссылки (кнопка отмечена красным на скриншоте).
Кнопка События открывает диалог:
В этом диалоге можно назначить, к примеру, такой макрос (он будет показывать сообщение с текстом гиперссылки при Ctrl-кликании по гиперссылке):
sub zzz Doc=ThisComponent VK=Doc.CurrentController.ViewCursor TK=Doc.Text.createTextCursorByRange(VK,FALSE) S=TK.HyperLinkURL Do while TK.HyperLinkURL<>"" TK.goLeft(1,FALSE) If TK.isStartOfParagraph=TRUE then exit do Loop Do while TK.HyperLinkURL<>"" TK.goRight(1,TRUE) If TK.isEndOfParagraph=TRUE then exit do Loop msgbox TK.String end sub
