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