Löschen von Benutzerfeldern?

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Löschen von Benutzerfeldern?

von harryh99 » Di, 18.07.2006 08:56

Hallo komma4,

danke, funktioniert hervorragend.

Gruß

Harryh99

von komma4 » Mo, 17.07.2006 22:31

harryh99 hat geschrieben: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

von harryh99 » Mo, 17.07.2006 15:02

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

Basic: löschen aller Benutzerfelder

von komma4 » Fr, 14.07.2006 20:47

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

von harryh99 » Fr, 14.07.2006 11:59

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

von Toxitom » Mi, 12.07.2006 08:33

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

von komma4 » Di, 11.07.2006 23:40

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.

Löschen von Benutzerfeldern?

von harryh99 » Mi, 05.07.2006 16:51

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

Nach oben