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