Макросы для Writer

Материал из Forumooo wiki

(Различия между версиями)
Перейти к: навигация, поиск
(добавление категория)
Строка 36: Строка 36:
   msgbox TK.String
   msgbox TK.String
end sub</source>
end sub</source>
 +
 +
[[Категория: Программирование]]
 +
[[Категория: Макросы]]
 +
[[Категория: Макросы для Writer]]

Версия 04:16, 5 февраля 2017


Как удалить все графические объекты в документе Writer

Sub Main
With ThisComponent
   For i=0 to .GraphicObjects.Count-1
      .GraphicObjects(0).dispose()
   Next
End With
End Sub

Выполнить макрос по клику на ссылке

Гиперссылке можно назначить макрос. Для этого есть кнопка События в дополнительных настройках диалога изменения гиперссылки (кнопка отмечена красным на скриншоте).

Снимок-Гиперссылка.png

Кнопка События открывает диалог:

Снимок-Назначить макрос.png

В этом диалоге можно назначить, к примеру, такой макрос (он будет показывать сообщение с текстом гиперссылки при 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
Личные инструменты
Пространства имён
Варианты
Действия
Компоненты
Общие вопросы
Совместимость
Навигация
Инструменты