Hallo,
danke für die zahlreichen Antworten auf meine letzte Benutzerfeldfrage.
Ich suche nun eine Möglichkeit, Benutzerfelder in Text umzuwandeln. Ich möchte sozusagen alle Benutzerfelder eines Dokuments in reinen Text umwandeln, so dass sie sich wie normaler Text in Openoffice editieren lassen.
Gibt es da eine elegante (oder unelegante) Methode?
Danke und Gruß
Harryh99
Umwandeln von Benutzerfeldern in Text
Moderator: Moderatoren
Hallo,
ich habe eine Lösung für mein Problem gefunden. Der Sourcecode ist der folgende:
oDok = ThisComponent
enumTextFelder = ThisComponent.getTextFields().createEnumeration()
Do While enumTextFelder.hasMoreElements()
oTextFeld = enumTextFelder.nextElement()
If oTextFeld.supportsService("com.sun.star.text.TextField.User") Then
Master = oTextFeld.gettextfieldmaster()
Anchor = oTextFeld.getAnchor()
thisComponent.Text.insertString(Anchor, Master.content, True)
End If
Loop
Damit werden alle Benutzerfelder im Dokument durch "reinen Text" ersetzt.
Gruß
Harryh99
ich habe eine Lösung für mein Problem gefunden. Der Sourcecode ist der folgende:
oDok = ThisComponent
enumTextFelder = ThisComponent.getTextFields().createEnumeration()
Do While enumTextFelder.hasMoreElements()
oTextFeld = enumTextFelder.nextElement()
If oTextFeld.supportsService("com.sun.star.text.TextField.User") Then
Master = oTextFeld.gettextfieldmaster()
Anchor = oTextFeld.getAnchor()
thisComponent.Text.insertString(Anchor, Master.content, True)
End If
Loop
Damit werden alle Benutzerfelder im Dokument durch "reinen Text" ersetzt.
Gruß
Harryh99