Application VisualBasic Script

Sub pathDemo5()
    Options.DefaultFilePath(wdCurrentFolderPath) = "c:\user\"
End Sub