OpenOffice.info

Die Lösung ist gut und funktioniert wenn die Funktion direkt im Formular gespeichert wird.
Kann mir jemand einen Tip geben wie ich sie ergänzen kann, dass aus einer Vorlage *.odt ...
Die Felder nur EINMAL eingesetzt werden und dann fix sind.
Entspricht der Funktion fix bei den Feldbefehlen im Writer.
Möchte ein Formular erstellen für die MA wo der Name Vorname automagisch eingesetzt wird und
sich nach dem Erstellen eines Dokumentes aud der Vorlage nicht mehr verändert.
Danke für Hilfe.
Urs

Vielen Dank für die Lösung aus dem Makro-Forum: :D
[url]http://de.openoffice.info/viewtopic.php?f=18&t=17806[/url]

Function BEDA (wert as String)
Dim nutzer as Object 
Dim reg_daten as Object 
Dim profil(0) as new com.sun.star.beans.PropertyValue 
nutzer = createUnoService("com.sun.star.configuration.ConfigurationProvider") 
profil(0).Name = "nodepath" 
profil(0).Value = "org.openoffice.UserProfile/Data" 
reg_daten = nutzer.createInstanceWithArguments("com.sun.star.configuration.ConfigurationAccess", profil())
Select Case wert
	Case "Firma"
		BEDA = reg_daten.o
	Case "Vorname"
		BEDA = reg_daten.givenname
	Case "Nachname"
		BEDA = reg_daten.sn
	Case "Kürzel"
		BEDA = reg_daten.initials
	Case "Titel"
		BEDA = reg_daten.title
	Case "Position"
		BEDA = reg_daten.position 
	Case "Telefon-geschäftlich"
		BEDA = reg_daten.telephonenumber
	Case "Fax"
		BEDA = reg_daten.facsimiletelephonenumber
	Case "Telefon-privat"
		BEDA = reg_daten.homephone 
	Case "Email"
		BEDA = reg_daten.mail 
	Case "Strasse"
		BEDA = reg_daten.street
	Case "PLZ"
		BEDA = reg_daten.postalcode 
	Case "Land"
		BEDA = reg_daten.c
	Case = "Ort"
		BEDA = reg_daten.l
	Case Else
		BEDA = "Fehler aufgetreten"
End Select
End Function

Mit Bordmitteln ???
Es scheint mir am Einfachsten eine benutzerdefinierte Funktion zu verwenden, habe eine solche mal schnell geschrieben:

[code]Function BEDA (wert as String)
Dim nutzer as Object
Dim reg_daten as Object
Dim profil(0) as new com.sun.star.beans.PropertyValue
nutzer = createUnoService("com.sun.star.configuration.ConfigurationProvider")
profil(0).Name = "nodepath"
profil(0).Value = "org.openoffice.UserProfile/Data"
reg_daten = nutzer.createInstanceWithArguments("com.sun.star.configuration.ConfigurationAccess", profil())
Select Case wert
Case "Firma"
BEDA = reg_daten.o
Case "Vorname"
BEDA = reg_daten.givenname
Case "Nachname"
BEDA = reg_daten.sn
Case "Kürzel"
BEDA = reg_daten.initials
Case "Titel"
BEDA = reg_daten.title
Case "Position"
BEDA = reg_daten.position
Case "Telefon-geschäftlich"
BEDA = reg_daten.telephonenumber
Case "Fax"
BEDA = reg_daten.facsimiletelephonenumber
Case "Telefon-privat"
BEDA = reg_daten.homephone
Case "Email"
BEDA = reg_daten.mail
Case "Strasse"
BEDA = reg_daten.street
Case "PLZ"
BEDA = reg_daten.postalcode
Case "Land"
BEDA = reg_daten.c
Case = "Ort"
BEDA = reg_daten.l
Case Else
BEDA = "Fehler aufgetreten"
End Select
End Function[/code]

Kopiere sie z.B. in ein Modul der Standard-Bibliothek von OpenOffice.org dann ist sie immer verfügbar.

Aufrufen in einer Zelle ganz normal, Parameter sind in Funktion ersichtlich.
Zum Beispiel:
[color=blue]=BEDA("Vorname")[/color] liefert den Vornamen
[color=blue]=BEDA("Vorname") & " " & BEDA("Nachname")[/color] liefert Vorname und Nachname

usw.

Gruß
Stephan

Hallo wie füge ich die Benutzerdaten in ein Tabellendokument ein?