Doc_Variable_Word

Hallo zusammen


Ich möchte in einer Wordvorlage mit Feldfunktionen arbeiten.

Dabei habe ich für die Felder: Position, E-Mail, Tel. die Docvariable gebraucht, sodass es aus dem Active Directory die Daten liest.

Dies funktioniert super, sodass immer der aktuelle Nutzer seine Daten direkt hinterlegt sieht.


Nun möchte ich jedoch, dass die Daten von vorherigen Person, welche das Dokument bearbeitet und gespeichert hat, hinterlegt bleiben und nicht bei öffnen geändert werden sondern erst beim erneuten speichern.

Kurzgefasst: Es soll die gleiche Funktion haben wie SaveDate beim Datum und LastSaveby beim Nutzer


Das aktuelle Skript sieht wie folgt aus:


'Variablen für AD-Abfrage



Dim varQuery As String

Dim objSystemInfo As Object

Dim objBenutzer As Object



' Active Directory Informationen des angemeldeten Benutzers lesen

Set objSystemInfo = CreateObject"ADSystemInfo"

varQuery = "LDAP://" & objSystemInfo.UserName

' mit Nachfolgender Zeile haben wir einen Zeiger auf das AD-Objekt des Benutzers

' damit können wir alle AD-Felder abfragen

Set objBenutzer = GetObjectvarQuery



' nun füllen wir die DOCVARIABLEN im Dokument mit diesen Werten

ActiveDocument.Variables"Vorname".Value = objBenutzer.givenName

ActiveDocument.Variables"Initialen".Value = objBenutzer.initials

ActiveDocument.Variables"Nachname".Value = objBenutzer.sn

ActiveDocument.Variables"Anzeigename".Value = objBenutzer.DisplayName

ActiveDocument.Variables"Beschreibung".Value = objBenutzer.Description

ActiveDocument.Variables"Buero".Value = objBenutzer.PhysicalDeliveryOfficeName

ActiveDocument.Variables"Rufnummer".Value = objBenutzer.telephoneNumber

ActiveDocument.Variables"Email".Value = objBenutzer.mail

ActiveDocument.Variables"Webseite".Value = objBenutzer.wWWHomepage

ActiveDocument.Variables"Strasse".Value = objBenutzer.streetAddress

ActiveDocument.Variables"Postfach".Value = objBenutzer.postOfficeBox

ActiveDocument.Variables"Ort".Value = objBenutzer.l

ActiveDocument.Variables"Bundesland".Value = objBenutzer.st

ActiveDocument.Variables"Postleitzahl".Value = objBenutzer.postalCode

ActiveDocument.Variables"Land".Value = objBenutzer.CO

ActiveDocument.Variables"Benutzeranmeldename".Value = objBenutzer.sAMAccountName

ActiveDocument.Variables"RufnummernPrivat".Value = objBenutzer.homePhone

ActiveDocument.Variables"RufnummernPager".Value = objBenutzer.pager

ActiveDocument.Variables"RufnummernMobil".Value = objBenutzer.mobile

ActiveDocument.Variables"RufnummernFax".Value = objBenutzer.facsimileTelephoneNumber

ActiveDocument.Variables"RufnummernIPTelefon".Value = objBenutzer.ipPhone

ActiveDocument.Variables"Position".Value = objBenutzer.Title

ActiveDocument.Variables"Abteilung".Value = objBenutzer.department

ActiveDocument.Variables"Firma".Value = objBenutzer.company



' und zum Schluss die Werte aller Felder einmal aktualisieren damit die neuen Werte auch sofort angezeigt werden

ActiveDocument.Fields.Update



End Sub


Hoffe es kann mir jemand helfen.


Herzlichst Rafael