वीबीए

Question

के माध्यम से प्रदर्शित 'सेव एज़' संवाद को रद्द करते समय रन-टाइम त्रुटि मेरे पास एक मैक्रो है जो एक दस्तावेज़ को एक निश्चित तरीके से स्वरूपित करता है, और फिर ActiveDocument.Save का उपयोग करके इसे सहेजता है।

हालांकि, कभी-कभी दस्तावेज़ पहले ही सहेजा नहीं जाता है, और कुछ मामलों में मैं इसे सहेजना नहीं चाहता हूं। दुर्भाग्य से, क्लिक करके 'रद्द करें' जब 'सहेजें' संवाद प्रदर्शित किया जाता है एक रन-टाइम त्रुटि (4198) खड़ी कर रहा है -

Command failed

किसी को भी पता है कि कैसे मैं इसे होने से रोक सकते हैं? धन्यवाद। यदि फ़ाइल पहले से सहेज लिया गया है या अब

1. टेस्ट नहीं
2:

Answer 1

अपडेट किया गया। यदि फ़ाइल सहेजी गई है, तो फ़ाइल को सहेजने के लिए SaveAs संवाद दिखाने के लिए नियंत्रित प्रक्रिया का उपयोग किया जाता है, याको संभालने के लिए उपयोग किया जाता है

कोड

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

कुछ त्रुटि हैंडलिंग निर्देश जोड़कर निम्न प्रयास करें:

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

VSTO डेवलपर्स के लिए

, कृपया यहाँ

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(); 
     } 

परिणाम जाना है, जो बटन दबाने स्टोर करेगा (0- रद्द 1- ठीक है, 2- पास)