[gelöst] Ansicht von Feldbefehlen (Daten in Felder)

[miesepeter]

Hallo zusammen,

wenn ich einen Serienbrief schreibe, dann prüfe ich oft Funktionen mit "Daten in Felder". Gibt es eine Möglichkeit, die Ansicht der Felder so zurückzubekommen, dass sie wieder in der Kurzform mit spitzen Klammern erscheinen anstatt bei Einblendung der Feldnamen (Menü Ansicht) den ganzen Pfad des Datenfeldbefehls gezeigt zu bekommen?

Grafik aus dem www.ooowiki.de:
http://www.ooowiki.de/attachments/Serie ... mation.gif

Ciao

[Stephan]

dieses Makro sollte das lösen:

Code: Alles auswählen

Sub Main
	felder = ThisComponent.getTextFields.createEnumeration
	While felder.hasMoreElements 
		akt_feld = felder.nextElement 
		If akt_feld.SupportsService("com.sun.star.text.TextField.Database") Then
			akt_feld.CurrentPresentation = "<" & akt_feld.TextFieldMaster.DataColumnName & ">"
		EndIf 
	Wend 
End Sub

Gruß
Stephan

[miesepeter]

@Stephan

Danke für den Makrotext. Hab's auf LO 7.0.0.0Dev ausprobiert und erfüllt seinen Zweck!

Ciao