OpenOffice.info

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

[quote]irgendwas mache ich falsch, hat jemand eine Idee, was?[/quote]

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

 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")

Hallo,

ich benutze OpenOffice 4.0.1 unter Windows 7.

Folgendes Makro:

-------------------
[code] 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")[/code]
-------------------

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