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, 4511 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ß
Ähnliche Inhalte
VB for Applications
gelöst VBS Ordner erstellen - wenn nicht vorhanden! (1)

Frage von freshman2017 zum Thema VB for Applications ...

Batch & Shell
gelöst VBS Script in eine Textdatei ausgeben (VBS mit Batch zusammenführen) (5)

Frage von Luuke257 zum Thema Batch & Shell ...

Microsoft Office
gelöst Word 2010 Vorlage (6)

Frage von sklaim zum Thema Microsoft Office ...

Batch & Shell
gelöst Hilfe Bei einem vbs Script (19)

Frage von Hattori-Hanzo zum Thema Batch & Shell ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(2)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Netzwerkgrundlagen
Kann auf Freigabe nicht Zugreifen (19)

Frage von leon123 zum Thema Netzwerkgrundlagen ...

Windows Server
gelöst Neues KB für W10 1607 und W2K16 wieder mal nicht im WSUS 3.0, hat das noch jemand? (16)

Frage von departure69 zum Thema Windows Server ...

Windows Server
DC virtualisieren + wie sichern (SingleDC-Environment) (12)

Frage von KMUlife zum Thema Windows Server ...

Festplatten, SSD, Raid
RAID Controller mit Trim-Funktion, wie ermitteln (11)

Frage von pixel24 zum Thema Festplatten, SSD, Raid ...