Application VisualBasic Script

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