Benutzerdaten einfügen?
Verfasst: Fr, 07.01.2005 15:08
Hallo wie füge ich die Benutzerdaten in ein Tabellendokument ein?
Es scheint mir am Einfachsten eine benutzerdefinierte Funktion zu verwenden, habe eine solche mal schnell geschrieben:
Code: Alles auswählen
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 FunctionAufrufen in einer Zelle ganz normal, Parameter sind in Funktion ersichtlich.
Zum Beispiel:
=BEDA("Vorname") liefert den Vornamen
=BEDA("Vorname") & " " & BEDA("Nachname") liefert Vorname und Nachname
usw.
Gruß
Stephan
