Application VisualBasic Script

Sub pathDemo18()
    Options.DefaultFilePath(wdStartupPath) = "c:\user\"
End Sub