Макросы для Writer
Материал из Forumooo wiki
(Различия между версиями)
Helen (Обсуждение | вклад) (добавление категория) |
Helen (Обсуждение | вклад) м (форматирование) |
||
Строка 1: | Строка 1: | ||
{{DISPLAYTITLE: Макросы для Writer}} | {{DISPLAYTITLE: Макросы для Writer}} | ||
- | + | == Как удалить все графические объекты в документе Writer == | |
<source lang="oobas"> | <source lang="oobas"> | ||
Sub Main | Sub Main | ||
Строка 11: | Строка 11: | ||
End Sub</source> | End Sub</source> | ||
- | + | == Выполнить макрос по клику на ссылке == | |
Гиперссылке можно назначить макрос. Для этого есть кнопка '''События''' в дополнительных настройках диалога изменения гиперссылки (кнопка отмечена красным на скриншоте). | Гиперссылке можно назначить макрос. Для этого есть кнопка '''События''' в дополнительных настройках диалога изменения гиперссылки (кнопка отмечена красным на скриншоте). | ||
Текущая версия на 04:19, 5 февраля 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