Autotext in Word erstellen mit VBS?

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