Application VisualBasic Script

Sub pathDemo8()
    Options.DefaultFilePath(wdGraphicsFiltersPath) = "c:\user\"
End Sub