Autotext in Word erstellen mit VBS?

Hallo,

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ß