Löschen von Benutzerfeldern?

[harryh99]

Hallo,

gibt es eine Möglichkeit, Benutzerfelder komfortabel zu löschen? Ich habe ein Dokument mit ca. 900 Benutzerfeldern und möchte diese komfortabel löschen. Gibt es da in Starbasic ggf. einen Befehl oder vielleicht sogar in OpenOffice selbst eine Möglichkeit? Die X-Schaltfläche in den Optionen der Benutzerfelder ist bei so vielen Felder sehr mühsam und anscheinend lassen sich auch einige Benutzerfelder nicht löschen.
Vielleicht etwas wie:

Masters = ThisComponent.getTextFieldMasters()
Feld = Masters.getByName("com.sun.star.text.FieldMaster.User.AccusationMacro")
Feld.Delete?

Danke und Gruß

Harryh99

[komma4]

Ich denke schon, dass es diese Möglichkeit gibt.

Gib' uns 'ne Chance, und die Angaben zu:
OOo Version
Dokumentenformat
was Du unter "Benutzerfeld" verstehst, wie sie erstellt wurden.

Danke.

[Toxitom]

Hey Harry,

Textfelder löschst du - wie andere Textinhalte auch - über die Methode removeTextContent().
Bei Feldern mit einem Master bleibt dieser allerdings bestehen. Um das Masterobjekt endgültig zu löschen, bkeibt meiner ansicht nur die Methode dispose().

Gruss
Thomas

[harryh99]

Hallo,

Openoffice-Version ist 2.0.1
Dokumentenformat ist im Grunde egal, momentan jedoch noch sxw, wäre aber auch odt nicht abgeneigt.
Die Benutzerfelder wurden unter Einfügen->Feldbefehl->andere->Variablen->Benutzerfeld eingetragen.
Ich suche nun eine Möglichkeit alle Benutzerfelder des Dokumentes komfortabel zu löschen (z.B. über ein Makro).

Danke und Gruß

Harryh99

[komma4]

Das ist ein "Acht-Zeiler", radikales Löschen, ohne Fehlerprüfungen: Benutzung auf eigene Gefahr!

Getestet mit OOo 2.0.3, Linux, .odt Format

Code: Alles auswählen

Sub oooinfo_8136
' 20060714
' http://de.openoffice.info/viewtopic.php?t=8136
' Writer Makro OHNE Fehlerprüfungen !
'
' Loeschen aller:
' " Einfügen->Feldbefehl->andere->Variablen->Benutzerfeld "
' eines Writer-Dokuments

oDok = ThisComponent
enumTextFelder = ThisComponent.getTextFields().createEnumeration()

' alle
Do While enumTextFelder.hasMoreElements()
	oTextFeld = enumTextFelder.nextElement()
	' Benutzerfeld
	If oTextFeld.supportsService("com.sun.star.text.TextField.User") Then
		' weg damit
		oTextFeld.dispose()
	End If
Loop

End Sub

[harryh99]

Hallo komma4,

ich habe gerade das Makro ausprobiert und es löscht leider die Benutzerfelder nur im Inhalt des Dokumentes nicht aus den Daten des Dokumentes. Sie tauchen weiterhin unter "Einfügen->Feldbefehl->andere->Variablen->Benutzerfeld" auf.
Ich würde jedoch gerne die kompletten Benutzerfelder auch aus den Metadaten des Dokuments loswerden. Gibt es da eine Möglichkeit?

Danke und Gruß,

Harryh99

[komma4]

Gibt es da eine Möglichkeit?

auf die GanzHarte:

Code: Alles auswählen

Sub oooinfo_8136_variante2

oDok = ThisComponent
for i = UBound( oDok.TextFieldMasters.ElementNames ) to 0 Step -1
	if Instr( _
		oDok.TextFieldMasters.ElementNames( i ), _
		"com.sun.star.text.FieldMaster.User" ) > 0 then
			oMaster = oDok.TextFieldMasters.getByName( _
			oDok.TextFieldMasters.ElementNames( i ) )
			oMaster.dispose()
	end if
next i

End Sub

[harryh99]

Hallo komma4,

danke, funktioniert hervorragend.

Gruß

Harryh99