वर्ड टेम्प्लेट को कभी नहीं बचाएं?

Question

क्या वर्ड में टेम्प्लेट को सहेजने का कोई तरीका नहीं है? हमारे पास बहुत सारे टेम्पलेट हैं जिनका उपयोग हम मानक दस्तावेज़ बनाने के लिए करते हैं। जब इन टेम्प्लेट में से किसी एक पर आधारित दस्तावेज़ बंद हो जाता है, तो उपयोगकर्ता से पूछा जाता है कि क्या वे टेम्प्लेट में परिवर्तन सहेजना चाहते हैं। मैंने एक मैक्रो लिखा है जो इसे रोकता है, लेकिन केवल अगर मुख्य दस्तावेज़ को बंद करने से पहले बचाया गया था। क्या किसी दस्तावेज़ को उस दस्तावेज़ से सहेजने / बदलने से रोकने का कोई तरीका है जो उसमें आधारित है?

Comments

यह प्रोग्रामिंग के बारे में नहीं है, लेकिन Microsoft उत्पादों का उपयोग है।

— गंग फू

शायद मुझे और अधिक विशिष्ट होना चाहिए था। क्या उपयोगकर्ता को किसी दस्तावेज़ को बंद करने और सहेजने के लिए प्रेरित करने पर होने वाली बचत घटना के आधार पर मैक्रो को ट्रिगर करने का एक तरीका है? जब उपयोगकर्ता क्लिक को सहेजता है, तो मेरा ऑन इवेंट मैक्रो ऑन फायर लगता है। साथ ही, मैक्रो को ट्रिगर करने के लिए करीबी घटना का उपयोग करने के लिए एक चाल है?

यह चर्चा सहायक हो सकती है: support.microsoft.com/kb/918064

— burrowsrjl

Answer 1

मैंने ऊपर दिए लिंक की समीक्षा की और इसने मुझे उत्तर दिया। मैं मैक्रो के साथ नए दस्तावेज़ बना रहा हूं जो उचित टेम्पलेट को लोड करता है। मैंने सिर्फ दो लाइनों को मैक्रो में जोड़ा:

ActiveDocument.AttachedTemplate.Saved=True
ActiveDocument.AttachedTemplate=""

पहली पंक्ति टेम्पलेट को सहेजने के लिए प्रकट करती है (ताकि उपयोगकर्ता को संकेत न मिले)। दूसरी लाइन टेम्प्लेट से कनेक्टिऑन को तोड़ती है। (यह संबद्ध टेम्पलेट को "सामान्य" पर सेट करता है।

यह सुनिश्चित करने के लिए एक अच्छा समाधान प्रतीत होता है कि उपयोगकर्ता कभी भी गलती से मास्टर टेम्पलेट में किसी भी स्वरूपण परिवर्तन को सहेजता नहीं है।

Answer 2

प्रॉम्प्ट को दबाने के लिए कोई सेटिंग नहीं है, लेकिन वीबीए इसे कर सकता है।

मैक्रो संपादक में, सामान्य प्रोजेक्ट चुनें और सम्मिलित करें> क्लास मॉड्यूल पर क्लिक करें। गुण फलक में, क्लास मॉड्यूल के नाम को EventClassModule में बदलें। (यदि आप गुण फलक नहीं देखते हैं, तो F4 दबाएं या दृश्य> गुण विंडो क्लिक करें।)

क्लास मॉड्यूल के लिए कोड विंडो में, इस कोड को पेस्ट करें:

Public WithEvents App As Word.Application

Private Sub App_DocumentBeforeSave(ByVal Doc As Document, _
        SaveAsUI As Boolean, Cancel As Boolean)
    If Doc Is ActiveDocument And ActiveDocument.AttachedTemplate <> ActiveDocument Then
        Doc.AttachedTemplate.Saved = True ' avoid saving template
    End If
End Sub

सामान्य प्रोजेक्ट में भी, एक नियमित मॉड्यूल जोड़ें (सम्मिलित करें> मॉड्यूल) और इस कोड को इसमें जोड़ें:

Dim X As New EventClassModule

Sub AutoExec()
    Set X.App = Word.Application
End Sub

Sub AutoExit()
    Set X = Nothing
End Sub

लेखक: जे फ्रीडमैन स्रोत: http://answers.microsoft.com/en-us/office/forum/office_365hp-word/i-never-want-to-save-changes-to-template-from-a/f1cc78f8- 2f2f-4c45-a3fb-731a9105a5a8