' Den aktuellen Benutzer ermitteln
Dim AktuellerBenutzer 
Set Testobjekt = CreateObject("WScript.Network")
AktuellerBenutzer = Testobjekt.UserName
MsgBox "Im Moment ist der User " & AktuellerBenutzer & " angemeldet."
 
' Word Neuen Dokumentenpfad setzen
Const wdDocumentsPath = 0
Set objWord = CreateObject("Word.Application")
Set objOptions = objWord.Options
objOptions.DefaultFilePath(0) = "Q:\Home\" & AktuellerBenutzer & "\Word"
objOptions.DefaultFilePath(2) = "Q:\Home\" & AktuellerBenutzer & _
  "\Word\Vorlagen"
objOptions.DefaultFilePath(3) = "Q:\Word Vorlagen Neu" 
objOptions.DefaultFilePath(8) = "Q:\Word Vorlagen Neu\Startup2010"
 
 
' Ergebnis anzeigen
' wdDocumentsPath = 0
' wdUserTemplatesPath = 2
' wdUserOptionsPath = 4
' wdPicturesPath = 1
' wdAutoRecoverPath = 5
' wdStartupPath = 8
' wdWorkgroupTemplatesPath = 3
 
MsgBox ("Aktueller Benutzer: " & AktuellerBenutzer & vbCrLf & _
        "Dokumente " & objOptions.DefaultFilePath(0) & vbCrLf & _
        "Clipart-Bilder " & objOptions.DefaultFilePath(1) & vbCrLf &  _
        "Benutzervorlagen " & objOptions.DefaultFilePath(2) & vbCrLf &  _
        "Arbeitsgruppenvorlagen " & objOptions.DefaultFilePath(3) & vbCrLf & _
        "AutoWiederherstellen-Dateien " & objOptions.DefaultFilePath(5) & _
        vbCrLf &  _
        "Wörterbuch " & objOptions.DefaultFilePath(6) & vbCrLf &  _
        "Autostart " & objOptions.DefaultFilePath(8))
objWord.Quit