Seite 1 von 1

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

Verfasst: Mo, 06.07.2020 18:42
von 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

Re: Ansicht von Feldbefehlen (Daten in Felder)

Verfasst: Mo, 06.07.2020 18:55
von 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

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

Verfasst: Di, 07.07.2020 12:00
von miesepeter
@Stephan

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

Ciao