OpenOffice.info

@Stephan

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

Ciao

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

dieses Makro sollte das lösen:

[code]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[/code]


Gruß
Stephan

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 [b]Kurzform mit spitzen Klammern[/b] 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/SerienBrief/dateninfelder-animation.gif

Ciao