I did not try this!!! Just tried to convert
; ===========================================================================================
;
;     Script Information
;    
;     Title:       SetWordOptions
;     Author:      Wim Rotty
;     Description: Converted from vbscript provided by Chelseauk
;    
;
; ===========================================================================================
;Script Options
If Not @LOGONMODE
   Break On
Else
   Break Off
EndIf
Dim $RC
$RC = SetOption("Explicit", "On")
$RC = SetOption("NoMacrosInStrings", "On")
$RC = SetOption("NoVarsInStrings", "On")
If @SCRIPTEXE = "KIX32.EXE"
   $RC = SetOption("WrapAtEOL", "On")
EndIf

;Declare variables
Dim $wdStartupTemplatesPath, $wdWorkgroupTemplatesPath
Dim $objWord, $objOptions

;Initialize variables
$wdStartupTemplatesPath = 7
$wdWorkgroupTemplatesPath = 3
$objWord = CreateObject("Word.Application")
If @ERROR
   Exit @ERROR
EndIf
$objOptions = $objWord.Options

;Code
$objOptions.DefaultFilePath($wdStartupTemplatesPath) = "C:\Brand Templates\startup"
$objOptions.DefaultFilePath($wdWorkgroupTemplatesPath) = "C:\Brand Templates"
$objWord.Quit

Edited by Witto (2007-08-28 01:30 PM)
Edit Reason: Forgot some $-signs