Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Autotext in Word erstellen mit VBS?

Frage Entwicklung VB for Applications

Mitglied: bugmenot2

bugmenot2 (Level 1) - Jetzt verbinden

25.01.2012 um 12:22 Uhr, 4458 Aufrufe

Hallo,

ich habe folgendes VBScript:
01.
Set WshShell = WScript.CreateObject("Wscript.Shell") 
02.
AppData = WshShell.ExpandEnvironmentStrings("%AppData%") 
03.
Set objSysInfo = CreateObject("ADSystemInfo") 
04.
 
05.
strUser = objSysInfo.UserName 
06.
Set objUser = GetObject("LDAP://" & strUser) 
07.
 
08.
Set objWord = CreateObject("Word.Application") 
09.
objWord.UserName = objUser.givenName & " " & objUser.SN 
10.
objWord.UserInitials = Left(objUser.givenName, 1) & Left(objUser.SN, 1) 
11.
objWord.UserAddress = "Abteilung" & Chr(13) & objUser.department & Chr(13) & objUser.givenName & " " & objUser.SN & Chr(13) & _  
12.
objUser.telephoneNumber & Chr(13) & _  
13.
objUser.mail 
14.
 
15.
objWord.Quit 
16.
 
17.
Set objWord = CreateObject("Word.Application") 
18.
objWord.Visible = False 
19.
 
20.
Set objDoc = objWord.Documents.Add() 
21.
Set objSelection = objWord.Selection 
22.
 
23.
objSelection.Font.Name = "News Gothic" 
24.
objSelection.Font.Size = "7" 
25.
objSelection.TypeText "Abteilung" & Chr(13) & objUser.department & Chr(13) & objUser.givenName & " " & objUser.SN & Chr(13) & _ 
26.
objUser.telephoneNumber & Chr(13) & _  
27.
objUser.mail 
28.
objSelection.TypeParagraph() 
29.
 
30.
objDoc.SaveAs(AppData & "\Microsoft" & "\Document Building Blocks" & "\1031" & "\Benutzerdaten.dotx"),14 
31.
 
32.
objWord.Quit
Das funktioniert schon wie es soll nur soll jetzt der Text, der in der Word Datei gespeichert wird vorher in einem Autotext/Schnellbaustein in der selben Datei gespeichert werden.
VBA nutzt ja sowas wie "AutoTextEntries.Add" nur ist das ja nicht so einfach auf VBS anzuwenden.
Hat jemand eine Idee wie der Befehl lauten könnte? Vielen Dank im Voraus.

Gruß
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(3)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Windows 7
Microsoft Word - Anzeigefehler bei Scrollen

Frage von heisenberg4 zum Thema Windows 7 ...

Netzwerkgrundlagen
IPsec - .conf und .secret erstellen aus Gruppe und User (16)

Frage von MaxMLe zum Thema Netzwerkgrundlagen ...

VB for Applications
gelöst Bestimmte Spalten aus CSV-Datei auslesen (VBS) (9)

Frage von Gurkenhobel zum Thema VB for Applications ...

Batch & Shell
Eventlog Druckjobs mit VBS auslesen (2)

Frage von joni2000de zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...