Hyperlink > Makro aufrufen

[clag]

Hallo kenner und Könner,

in einem Writer Dokument gibt es ein paar Hyperlinks, die jeweils auf eine Datei zeigen und soweit auch funktionieren.

Ich möchte diese Hyperlinks, mit einem Makro umgestalten, so das sie
1. ein Makro starten und 2. bei start dieses Makros ihren "Text" als Parameter übergeben.
Die Hyperlinks starten alle das gleiche Makro, der funktionale Unterschied ist der Text Parameter.

Daran scheitere ich gerade grandios.

Wie mache man einen Hyperlink zu einem "Makrostarter"?
Wie kann man beim Anklicken den Text übergeben?

Wenn ich ich versuche ein "Event" abzufragen (wie bei einer Schaltfläche) ist da leider nichts?

[Rocko]

Wie mache man einen Hyperlink zu einem "Makrostarter"?
Wie kann man beim Anklicken den Text übergeben?

Wenn ich mich nicht irre:

Rechtsklick auf Hyperlink - Hyperlink bearbeiten (Internet) - Weitere Einstellungen (Symbol ganz rechts) "Ereignisse"

[clag]

Hallo Rocko,

erstmal danke für die schnelle Antwort
da spricht der gute Sam Hawkins "wenn ich mich nicht irre"

Wie ich das manuell einstelle habe ich wohl erkannt, sonst würde ich ja nicht auf die Idee kommen das per Makro machen zu wollen.
Ich habe hunderte von Dateien die umstricken möchte, da ist Handarbeit uuuhh...

edit:
ich bin mal fremd gegangen und habe die gleiche Frage in englischen Forum gestellt, hier scheint ja Urlaubszeit zu sein.
https://forum.openoffice.org/en/forum/v ... 20&t=78673

[F3K Total]

Hallo Clag,
hatte auch mal ein solches Problem und habe mich damals lange damit beschäftigt.
Es geht per TextCursor. Events konnte ich bei meinen Forschungen auch nicht finden.
Aus diesen Makros kannst Du alles nötige entnehmen:

Code: Alles auswählen

sub S_Add_Macro_to_Hyperlinks
    dim eventpropsOnClick(1) as new com.sun.star.beans.PropertyValue
    eventpropsOnClick(0).name = "EventType"
    eventpropsOnClick(0).value = "Script"
    eventpropsOnClick(1).name = "Script"
    eventpropsOnClick(1).value ="vnd.sun.star.script:Standard.Module1.S_TestHyperlinkMacro?language=Basic&location=document"
    odoc = thiscomponent
    otext = odoc.text
    otextcursor = otext.createtextcursor
    otextcursor.CollapsetoStart
    do
        if otextcursor.HyperLinkURL <> "" then
           msgbox "Hyperlink gefunden: " & otextcursor.HyperLinkURL
           temp =  otextcursor.hyperlinkevents
           temp.replaceByName("OnClick",eventpropsOnClick)
           'temp.replaceByName("OnMouseOver",eventpropsOnMouseOver)
           otextcursor.hyperlinkevents = temp
        endif
    loop until otextcursor.gotoNextWord(false) = false
End sub

Sub S_TestHyperlinkMacro
    Msgbox "Juhu, das Zuweisen des Makros ""S_TestHyperlinkMacro"" zu allen Hyperlinks im Dokument hat geklappt"
End Sub

Gruß R

[clag]

Hallo F3K Total,

wie es nicht anders zu erwarten war funktioniert dein Code tip-top !
Das restliche Drumherum kriege ich hoffentlich gebacken.

besten Dank dafür!