[SOLVED]Links in Text-Tabellen

[lastraven]

Hallo Leuts,

ich habe in einem OpenOffice.org Writer/Web Dokument eine Text Tabelle. Nun möchte ich eine Zelle dieser Tabelle einen Link einfügen. Ich weiß zwar, wie ich einen String (also normalen Text) einfügen kann, aber nicht wie ich einen Link einfügen soll.

Hier sind meine bisherigen Ergebnisse:

Code: Alles auswählen

'Tabelle erstellen
oTab = thisComponent.createInstance("com.sun.star.text.TextTable")

		oTab.HoriOrient = 0
		oTab.Name = "Umsatz"
		oTab.initialize(1,2)

        'ein Link Objekt erstellen
	oLink = vDoc.createInstance("com.sun.star.text.TextField.URL")
  	oLink.URL = ConvertToURL("http://de.openoffice.info/")
  	oLink.Representation = "OOoForum" 


		oZelle1 = oTab.getCellByName("A1")
                'Link soll in die Zelle eingefügt werden
		oZelle1.setString(oLink)

Wenn ich diesen Code ausführe kriege ich einen Laufzeitfehler (Falscher Wert für Eigenschaft).
Mir ist klar das ich nur einen einfachen String der setString Methode übergeben soll, aber wie kann ich einen Link in eine Zelle eines OpenOffice.org Writer/Web Dokuments einfügen???????
Kann mir jemand helfen oder einen Tipp geben????? (über Xray fand ich auch nichts, was mir helfen konnte)

[komma4]

Code: Alles auswählen

oZelle1.insertTextContent( oText.createTextCursor(), oLink, TRUE )

oText = ThisComponent.Text
[ungetestet - aus'm Kopp]


Funktioniert das?

[lastraven]

danke für deinen Versuch komma4

Leider funktioniert das auch nicht ("text interface and cursor not related")

Jemand einen anderen Vorschlag???

[komma4]

Sorry - bekomme auch nur die Fehlermeldung
unknown text content

mit dem Code

Code: Alles auswählen

oZelle1 = oTab.getCellByName( "A1" ) 
oTabCursor = oZelle1.Text.createTextCursor()
oZelle1.Text.insertTextContent( oTabCursor , oLink , TRUE )

der mMn funktionieren müsste (andere Textfelder funktionieren)

und - ein Erzeugen einer Texttabelle als Objekt fügt diese noch nicht in das Dokument ein

Code: Alles auswählen

oTab.initialize(1,2)
' Textcursor
oTC = ThisComponent.Text.createTextCursor()
' Tabelle an der Stelle des Textcursors einfügen
ThisComponent.Text.insertTextContent(oTC, oTab, False) 

Muss ich mir morgen nochmal ansehen ...

[lastraven]

den gleichen Fehler erhalte ich nun auch

Habe ich möglicherweise das Hyperlink Objekt falsch angelegt???

[komma4]

Möglicherweise ...

Habe (auch in meiner Kruschelkiste) kein Code-Beispiel für Hyperlinks in Texttabellen/Writer gefunden - und bei Calc funktioniert es auf dieser Weise.
Mit anderen Textfeldern (Seitenzahl, Datum, ...) klappt es mit dem probierten Vorgehen.


Wenn es heute nicht allzu heiss wird schaue ich nochmal danach (reverse engineering: manuell eingefügten Hyperlink in TxtTab mit XRay untersuchen)

[lastraven]

langsam bin ich am verzweifeln

ich wäre dir sehr dankbar, wenn du nochmal nachschauen könntest komma4

[turtle47]

Hallo Zusammen,

hilft vielleicht folgender Link (letzer Beitrag auf dieser Seite)?

Jürgen

[lastraven]

... diesen Weg habe ich die ganze Zeit gesucht

vielen Dank für den tipp turtle47

@komma4
kannst dich jetzt ausruhen , trotzdem danke für deine Mühen


falls jemand noch die vollständige Lösung braucht:

Code: Alles auswählen

		oZelle1 = oTab.getCellByName("A1")
		
		oText = oZelle1.getText()
		oCursor = oText.createTextCursor()
		oCursor.HyperlinkURL = "http://de.openoffice.info/"
		oCellText = oCursor.getEnd()
		oCellText.setString("OOoForum")