Run-time error when canceling a 'Save As' dialog displayed via VBA

vba save word-2007
David Gard picture David Gard · Mar 14, 2013 · Viewed 8k times · Source

I have a macro that formats a document in a certain way, and then saves it, using ActiveDocument.Save.

However, sometimes the document is not already saved, and in some cases I don't want to save it. Unfortunately, clicking 'Cancel' when the 'Save As' dialogue is displayed is causing a run-time error (4198) -

Command failed

Does anyone know how I can prevent this from happening? Thanks.

Answer

Kazimierz Jawor picture Kazimierz Jawor · Mar 14, 2013

Please try the following by adding some error handling instructions:

On Error Resume Next    'to omit error when cancel is pressed
   ActiveDocument.Save

If Err.Number <> 0 Then   'optional, to confirmed that is not saved
   MsgBox "Not saved"      
End If
On Error GoTo 0         'to return standard error operation

Related questions

How to do a "Save As" in vba code, saving my current Excel workbook with datestamp?

I have an Excel Workbook that on form button click I want to save a copy of the workbook with the filename being the current date. I keep trying the the following ActiveWorkbook.SaveAs ("\\filePath\FormFlow To MSExcel\" & Left(…

Read More
Saving as .xlsx in different directory in vba

I am trying to use the SaveAs method to save a .csv document as a .xls document. However, when I try and designate the folder, it fails. For example, it will save to some default directory (my documents, which is …

Read More
how to save a sheet in VBA

I'm building a form that when you fill it up, it should generate 2 files as output. In order to do that I have 2 sheets in the background that I fill up depending on what the user entered a button to …

Read More