Application VisualBasic Script

Sub pathDemo16()
    Options.DefaultFilePath(wdDocumentsPath) = "c:\user\"
End Sub