Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Vbs Text an Textmarke nur ein einziges Mal einfügen

Mitglied: sniperwolf14

sniperwolf14 (Level 1) - Jetzt verbinden

03.08.2011 um 14:11 Uhr, 2867 Aufrufe

Ich versuche gerade in einem Word2003-Dokument per vbs Nutzerdaten aus dem AD auszulesen. Das funktioniert auch ohne Probleme.
Ich habe das Problem, dass jedes Mal, wenn das Dokument geöffnet wird, er automatisch meinen Nachnamen an der Stelle ausgibt, sprich nach dem 3. Mal öffnen steht 3x mein Nachname an der Textmarke

Wie kann ich Word sagen, er soll nur einmal an der Textmarke einfügen soll und dann nie wieder?

Ich danke schon mal ganz riesig.


Hier mein Code:
01.
Sub AutoNew() 
02.
     
03.
On Error Resume Next 
04.
Dim qQuery, objSysInfo, objuser 
05.
Dim FullName, EMail, PhoneNumber 
06.
 
07.
' Active Directory Informationen für den angemeldeten User lesen 
08.
Set objSysInfo = CreateObject("ADSystemInfo") 
09.
objSysInfo.RefreshSchemaCache 
10.
qQuery = "LDAP://" & objSysInfo.UserName 
11.
Set objuser = GetObject(qQuery) 
12.
 
13.
'Variablen mit AD-Attributen füllen (es gibt viel mehr Attributen zb. FaxNumber usv.) 
14.
FullName = objuser.firstname & " " & objuser.lastname 
15.
lastname = objuser.lastname 
16.
PhoneNumber = objuser.TelephoneNumber 
17.
Firma = objuser.Company 
18.
 
19.
'Vordefinierte Textmarken in Word füllen 
20.
If ActiveDocument.Bookmarks("txtNachname").Range.Text = "" Then 
21.
   ActiveDocument.Bookmarks("txtNachname").Range.Text = lastname 
22.
End If 
23.
 
24.
End Sub
Ähnliche Inhalte
Webentwicklung

Foto Upload und Default Text einfügen

gelöst Frage von smackeeWebentwicklung12 Kommentare

Hallo zusammen Ich bin auf der Suche nach einem Tool oder wie man das umsetzen kann. Ein User laded ...

Batch & Shell

Text per Batchdatei kopieren und einfügen

Frage von imebroBatch & Shell47 Kommentare

Hallo, ich würde gerne für meine Kollegen eine kleine Hilfe basteln Wir nutzen ein Programm, in dem auch Memos ...

Batch & Shell

(Batch) festgelegte Zeichen vor und nach Text einfügen

gelöst Frage von unauthorized-userBatch & Shell2 Kommentare

Hallo Community, ich stehe gerade vor einem (wahrscheinlich sehr banalem) Problem und benötige eure Hilfe. Ausgangssituation: Ich habe mehrere ...

Entwicklung

VBS Für Änderung Mehere Texte in einer Datei

gelöst Frage von Mac2345Entwicklung13 Kommentare

Hallo ich benötige etwas Hilfe beim schreibe von vbs. Ich habe eine Datei die ich in einem bestimmten Bereich ...

Neue Wissensbeiträge
Windows Server
Erneutes Release von WS2019 und Win10 v1809
Tipp von IT-Pro vor 10 StundenWindows Server3 Kommentare

Hi, nachdem der Windows Server 2019 und Windows 10 in der Version 1809 aufgrund von verschwinden von Dateien nach ...

CPU, RAM, Mainboards
Spectre Update Tool für ältere PCs
Information von sabines vor 13 StundenCPU, RAM, Mainboards6 Kommentare

Mit Hilfe eines Tools wird der betreffende PC permanent von einem USB Stick gestartet, der ein passendes Microcode Update ...

Windows 10
Windows 10 Oktober 2018 Update: Es ist wieder da
Tipp von Bowsette vor 21 StundenWindows 101 Kommentar

Ein neuer Versuch von Microsoft das Windows 10 Oktober 2018 Update, auch bekannt als 1809, an den Mann zu ...

Windows Server

Windows Server 2016: Achtung - ab heute gibt es wieder Express Updates

Information von kgborn vor 1 TagWindows Server1 Kommentar

Kurze Info für Administratoren, die Windows Server 2016 per WSUS/SCCM mit Updates betanken. Ab heute gibt es für Windows ...

Heiß diskutierte Inhalte
Windows Server
Windows Server 2016 Lizenzierung - 7 Hyper V VMs
Frage von staybbWindows Server18 Kommentare

Hallo zusammen, wir haben zwei HP Server gekauft mit jeweils pro Server 2 CPUs à 10 Cores. Also insgesamt ...

Batch & Shell
Ordnernamen mit String aus Ziffern-Zahlenkombination erstellen
Frage von MmarKussBatch & Shell16 Kommentare

Hallo zusammen, ich habe ein etwas komplexeres Problem, welches ich selbst mittels einer Batch-Datei lösen will / muss, da ...

Windows Server
Lohnt sich eine Domäne für uns?
Frage von BowsetteWindows Server12 Kommentare

Hallo, ich arbeite in einem kleinen Unternehmen mit mehr als 5 und weniger als 10 Mitarbeitern, also Small Business ...

Windows Server
AD Password Reminder Mail
Frage von TeutoneWindows Server10 Kommentare

Hallo liebe Leute, ich habe vor langer Zeit einmal ein Password Reminder Mail Script erstellt, welches nun nicht mehr ...