Lỗi thời gian chạy khi hủy hộp thoại 'Lưu dưới dạng' được hiển thị qua VBA

Question

Tôi có macro định dạng tài liệu theo một cách nhất định và sau đó lưu macro bằng cách sử dụng ActiveDocument.Save.

Tuy nhiên, đôi khi tài liệu chưa được lưu và trong một số trường hợp, tôi không muốn lưu. Rất tiếc, nhấp vào 'Hủy' khi hộp thoại 'Lưu dưới dạng' được hiển thị gây ra lỗi thời gian chạy (4198) -

Command failed

Có ai biết cách ngăn chặn điều này xảy ra không? Cảm ơn.

Answer 1

Cập nhật: Bây giờ

1. Các xét nghiệm nếu các tập tin đã được lưu trước đó hay không
2. Nếu tệp không được lưu, một quy trình được kiểm soát được sử dụng để hiển thị hộp thoại SaveAs để lưu tệp hoặc xử lý Cancel

đang

Dim bSave As Boolean 
If ActiveDocument.Path = vbNullString Then 
bSave = Application.Dialogs(wdDialogFileSaveAs).Show 
If Not bSave Then MsgBox "User cancelled", vbCritical 
Else 
ActiveDocument.Save 
End If 

Answer 2

hãy thử như sau bằng cách thêm một số hướng dẫn xử lý lỗi:

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 

Answer 3

cho các nhà phát triển VSTO, vui lòng vào đây

if (Globals.ThisAddIn.Application.ActiveDocument.Path == String.Empty) 
     { 
      Word.Dialog dlg; 
      Object timeout = 3000; 
      dlg = Globals.ThisAddIn.Application.Dialogs[ 
       Word.WdWordDialog.wdDialogFileSaveAs]; 
      int result = dlg.Display(ref timeout); 
     } 
     else 
     { 
      Globals.ThisAddIn.Application.ActiveDocument.Save(); 
     } 

Kết quả sẽ lưu giữ nút đó được nhấn (0- hủy, 1- ok, 2- gần)