Autotext in Word erstellen mit VBS?
Hallo,
ich habe folgendes VBScript:
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ß
ich habe folgendes VBScript:
Set WshShell = WScript.CreateObject("Wscript.Shell")
AppData = WshShell.ExpandEnvironmentStrings("%AppData%")
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
Set objWord = CreateObject("Word.Application")
objWord.UserName = objUser.givenName & " " & objUser.SN
objWord.UserInitials = Left(objUser.givenName, 1) & Left(objUser.SN, 1)
objWord.UserAddress = "Abteilung" & Chr(13) & objUser.department & Chr(13) & objUser.givenName & " " & objUser.SN & Chr(13) & _
objUser.telephoneNumber & Chr(13) & _
objUser.mail
objWord.Quit
Set objWord = CreateObject("Word.Application")
objWord.Visible = False
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
objSelection.Font.Name = "News Gothic"
objSelection.Font.Size = "7"
objSelection.TypeText "Abteilung" & Chr(13) & objUser.department & Chr(13) & objUser.givenName & " " & objUser.SN & Chr(13) & _
objUser.telephoneNumber & Chr(13) & _
objUser.mail
objSelection.TypeParagraph()
objDoc.SaveAs(AppData & "\Microsoft" & "\Document Building Blocks" & "\1031" & "\Benutzerdaten.dotx"),14
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ß
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 179516
Url: https://administrator.de/contentid/179516
Ausgedruckt am: 08.11.2024 um 05:11 Uhr