Thema Datum  Von Nutzer Rating
Antwort
26.02.2018 15:35:00 Jens23
NotSolved
Blau VBA - Textfeld im Header ansprechen
 26.02.2018 15:36:49 Gast39243
NotSolved
28.02.2018 07:22:29 Gast72855
NotSolved
28.02.2018 09:32:05 Gast63156
NotSolved

Ansicht des Beitrags:
Von:
Gast39243		 Datum:
26.02.2018 15:36:49		 Views:
599		 Rating:
     
Antwort:
  Ja
Thema:
VBA - Textfeld im Header ansprechen

So sieht das bei mir aus:

Dim oStory As Range
Dim dvVorname               As String
Dim dvNachname              As String
Dim dvBuero                 As String
Dim dvRufnummer             As String
Dim dvEmail                 As String
Dim dvRufnummernFax         As String
Dim varQuery As String
Dim objSystemInfo As Object
Dim objBenutzer As Object
Set objSystemInfo = CreateObject("ADSystemInfo")
varQuery = "LDAP://" & objSystemInfo.UserName
Set objBenutzer = GetObject(varQuery)
dvVorname = objBenutzer.givenName
dvNachname = objBenutzer.sn
dvBuero = objBenutzer.PhysicalDeliveryOfficeName
dvRufnummer = objBenutzer.telephoneNumber
dvEmail = objBenutzer.mail
dvRufnummernFax = objBenutzer.facsimileTelephoneNumber
ActiveDocument.Variables("Vorname").Value = dvVorname
ActiveDocument.Variables("Nachname").Value = dvNachname
ActiveDocument.Variables("Buero").Value = dvBuero
ActiveDocument.Variables("Rufnummer").Value = dvRufnummer
ActiveDocument.Variables("Email").Value = dvEmail
ActiveDocument.Variables("RufnummernFax").Value = dvRufnummernFax
ActiveDocument.Fields.Update

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
26.02.2018 15:35:00 Jens23
NotSolved
Blau VBA - Textfeld im Header ansprechen
 26.02.2018 15:36:49 Gast39243
NotSolved
28.02.2018 07:22:29 Gast72855
NotSolved
28.02.2018 09:32:05 Gast63156
NotSolved