Option Explicit
Private Sub Document_New()
MsgBox "Hallo, hier ist Document_New()"
Dim varQuery As String
Dim objSystemInfo As Object
Dim objBenutzer As Object
Set objSystemInfo = CreateObject("ADSystemInfo")
varQuery = "LDAP://" & objSystemInfo.UserName
Set objBenutzer = GetObject(varQuery)
With ActiveDocument
.Variables("Vorname").Value = objBenutzer.givenName
.Variables("Initialen").Value = objBenutzer.initials
.Variables("Nachname").Value = objBenutzer.sn
.Variables("Anzeigename").Value = objBenutzer.DisplayName
.Variables("Beschreibung").Value = objBenutzer.Description
.Variables("Buero").Value = objBenutzer.PhysicalDeliveryOfficeName
.Variables("Rufnummer").Value = objBenutzer.telephoneNumber
.Variables("Email").Value = objBenutzer.mail
.Variables("Webseite").Value = objBenutzer.wWWHomepage
.Variables("Strasse").Value = objBenutzer.streetAddress
.Variables("Postfach").Value = objBenutzer.postOfficeBox
.Variables("Ort").Value = objBenutzer.l
.Variables("Bundesland").Value = objBenutzer.st
.Variables("Postleitzahl").Value = objBenutzer.postalCode
.Variables("Land").Value = objBenutzer.CO
.Variables("Benutzeranmeldename").Value = objBenutzer.sAMAccountName
.Variables("RufnummernPrivat").Value = objBenutzer.homePhone
.Variables("RufnummernPager").Value = objBenutzer.pager
.Variables("RufnummernMobil").Value = objBenutzer.mobile
.Variables("RufnummernFax").Value = objBenutzer.facsimileTelephoneNumber
.Variables("RufnummernIPTelefon").Value = objBenutzer.ipPhone
.Variables("Anmerkungen").Value = objBenutzer.info
.Variables("Position").Value = objBenutzer.Title
.Variables("Abteilung").Value = objBenutzer.department
.Variables("Firma").Value = objBenutzer.company
.Variables("Vorgesetzter").Value = objBenutzer.manager
.Fields.Update
End With
End Sub