Макросы для Writer
Материал из Forumooo wiki
(Различия между версиями)
Rami (Обсуждение | вклад) (Новая страница: «{{DISPLAYTITLE: Макросы для Writer: Часто задаваемые вопросы}} __NOTOC__ {{Template:Preambula| На этой Wiki представ...») |
Rami (Обсуждение | вклад) |
||
Строка 1: | Строка 1: | ||
- | {{DISPLAYTITLE: Макросы для Writer | + | {{DISPLAYTITLE: Макросы для Writer}} |
__NOTOC__ | __NOTOC__ |
Версия 07:59, 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