Help me, While Save eDrawings File, don't dialogbox.with API?

In the dialog box, select one of the following:

Current sheet.

All sheets.

Selected sheets. Select from the list below.

********************************

Dim sFileName As String, nErrors As Long, nWarnings As Long

    SwApp.SetUserPreferenceIntegerValue swEdrawingsSaveAsSelectionOption, swEdrawingSaveAll

    SwModel.SaveAs4 sFileName, swSaveAsCurrentVersion, swSaveAsOptions_Silent, nErrors, nWarnings