वर्ड वीबीए मैक्रोज़ - टेम्पलेट्स (नया बनाएं)

वर्तमान टेम्पलेट

यह वर्ड वीबीए मैक्रो वर्तमान टेम्पलेट प्रदर्शित करेगा:

Sub DisplayCurrentTemplate() 'टेम्पलेट सक्रिय दस्तावेज़ MsgBox ActiveDocument.AttachedTemplate.FullName, "टेम्पलेट स्थान" एंड सब का पूरा पथ प्रदर्शित करता है

नया खाका बनाएं

यह वर्ड वीबीए मैक्रो एक नया टेम्पलेट बनाएगा:

Sub MakeNewTemplate() 'एक नया दस्तावेज़ बनाता है और एक टेम्पलेट के रूप में सहेजता है Dim strName स्ट्रिंग Dim strPath के रूप में स्ट्रिंग Dim oDoc के रूप में दस्तावेज़ strPath = Options.DefaultFilePath (wdUserTemplatesPath) और Application.PathSeparator 'पता लगाएं कि उपयोगकर्ता के कंप्यूटर पर टेम्पलेट कहाँ संग्रहीत हैं strName = " नमूना easyexcel.net template.dotm" सेट करें oDoc = Documents। 'एक नया दस्तावेज़ बनाएं और इसे oDoc चर में असाइन करें' जोड़ें oDoc चर oDoc.Range.InsertBefore "नमूना टेम्पलेट" oDoc का उपयोग करके नए दस्तावेज़ में कुछ पाठ लिखें। Range.Insertपैराग्राफ के बाद oDoc.Range.Insert "पर जाएँ https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName:=strPath & strName, FileFormat:=wdFormatXMLTemplateMacroEnabled, AddToRecentFiles:=False oDoc.ves 'बंद करें wdDoNotSaves' अंत उप