Sub pathDemo9() Options.DefaultFilePath(wdUserTemplatesPath) = "c:\user\" Options.DefaultFilePath(wdWorkgroupTemplatesPath) = "\\server\users\templates" End Sub