Application VisualBasic Script

Sub pathDemo3()
    Options.DefaultFilePath(wdBorderArtPath) = "c:\user\"
End Sub