von harryh99 » Mo, 17.07.2006 15:38
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
Hallo,
ich habe eine Lösung für mein Problem gefunden. Der Sourcecode ist der folgende:
[i]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 [/i]
Damit werden alle Benutzerfelder im Dokument durch "reinen Text" ersetzt.
Gruß
Harryh99