Application VisualBasic Script

Sub pathDemo2()
    Options.DefaultFilePath(wdStyleGalleryPath) = "c:\user\"
End Sub