If a3.Value = True Then
strFileName = Path + Name & "_rezka.cdr"
strFileExists = Dir(strFileName)
If strFileExists = "" Then
ActiveDocument.SaveAs Path + Name & "_rez.cdr", SaveOptions
Else
MsgBox "Файл с таким именем уже есть в папке.", vbExclamation
ActiveDocument.SaveAs , SaveOptions --- вот в этот момент нужен диалог Save AS.
End If
End If