[gelöst] HyperlinkUrl in Writer

[tbuecki]

Hallo,

ich benutze OpenOffice 4.0.1 unter Windows 7.

Folgendes Makro:

-------------------

Code: Alles auswählen

 Dim objDok, objCursor as Object
   objDok = ThisComponent
   TextBsp = "Hier gehts zum Link"
   
   objCursor = objDok.Text.createTextCursor

   objCursor.gotoStart(False)
   objCursor.goRight(1*8,True)

   
   objCursor.HyperLinkURL =   "http://www.oooforum.de"
   objCursor.CharFontName = "Arial"
   objCursor.CharHeight = "8"
   objCursor.setString("Hier klicken")

-------------------

formatiert zwar den Text "Hier klicken" wie vorgegeben, aber der Hyperlink ist nicht aktiv - irgendwas mache ich falsch, hat jemand eine Idee, was? Vielen Dank schon mal im Voraus!

Viele Grüße
Thomas

[Stephan]

irgendwas mache ich falsch, hat jemand eine Idee, was?

Du weist den ersten acht Zeichen des Textes den Hyperlink "http://www.oooforum.de" zu und überschreibst anschliessend sofort diese 8 Zeichen/Hyperlink durch den Text "Hier klicken".



Gruß
Stephan

[tbuecki]

Ja klar, peinlicher Fehler - Reihenfolge geändert, jetzt gehts - besten Dank für die schnelle Rückmeldung!