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, 4498 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 ...

Windows Server
gelöst Ordner erstellen Problem (3)

Frage von IrgendEinName zum Thema Windows Server ...

Windows Systemdateien
gelöst Mit CMD Verknüpfung erstellen mit der Option "Ausführen in" (5)

Frage von WinLiCLI zum Thema Windows Systemdateien ...

Visual Studio
Simples asp.net menu selbst erstellen (1)

Frage von Herbrich19 zum Thema Visual Studio ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Viren und Trojaner
Ransomware .nm4 (15)

Frage von Zyklo92 zum Thema Viren und Trojaner ...

iOS
16 iPads zentrall verwalten (14)

Frage von simonlohr zum Thema iOS ...

Microsoft Office
+1.000 Ordner in Outlook: Wie besser? (11)

Frage von Matsushita zum Thema Microsoft Office ...