Макросы для Writer

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

(Различия между версиями)
Перейти к: навигация, поиск
(добавление категория)
м (форматирование)
 
Строка 1: Строка 1:
{{DISPLAYTITLE: Макросы для Writer}}
{{DISPLAYTITLE: Макросы для Writer}}
-
===Как удалить все графические объекты в документе 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

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

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

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