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

के रूप रक्षित करें

यह Word मैक्रो ActiveDocument को एक नए फ़ाइल नाम से सहेजेगा जिसमें वर्तमान समय शामिल है:

Sub SaveMewithDateName () 'फ़िल्टर किए गए html के रूप में वर्तमान फ़ोल्डर में सक्रिय दस्तावेज़ को सहेजता है और वर्तमान समय पर मंद strTime स्ट्रिंग strTime = फ़ॉर्मेट (अब, "hh-mm") ActiveDocument.SaveAs FileName:=ActiveDocument.Path & "\" & strTime, FileFormat:=wdFormatFilteredHTML एंड सब

इस रूप में बनाएं और सहेजें

यह VBA मैक्रो एक नया दस्तावेज़ बनाएगा और वर्तमान दिनांक और समय का उपयोग करते हुए सहेजेगा:

Sub CreateAndSaveAs () 'एक नया दस्तावेज़ बनाता है और फ़िल्टर किए गए html के रूप में सहेजता है [डिफ़ॉल्ट फ़ोल्डर में और वर्तमान समय पर नामित] मंद strTime स्ट्रिंग मंद strPath के रूप में स्ट्रिंग मंद oDoc दस्तावेज़ के रूप में strPath = ActiveDocument.Path और Application.PathSeparator strTime = स्वरूप (अब, "yyyy-mm-dd hh-mm") oDoc = Documents सेट करें। जोड़ें 'एक नया doc बनाएं और इसे oDoc वेरिएबल में असाइन करें' oDoc वेरिएबल oDoc.Range.InsertBefore का उपयोग करके नए दस्तावेज़ में कुछ टेक्स्ट लिखें। "https://easyexcel.net/vba-code-library" पर जाएं oDoc.SaveAs FileName:=strPath & strTime, FileFormat:=wdFormatFilteredHTML oDoc. Close dDoNotSaveChanges 'क्लोज़ डॉक एंड सब

PDF के रूप में सहेजें

यह मैक्रो वर्ड डॉक्यूमेंट को पीडीएफ के रूप में सेव करेगा:

Sub MacroSaveAsPDF () 'मैक्रो पीडीएफ को उसी फ़ोल्डर में सहेजता है जहां सक्रिय दस्तावेज़ है या दस्तावेज़ फ़ोल्डर में यदि फ़ाइल अभी तक सहेजी नहीं गई है' स्ट्रिंग के रूप में मंद strPath स्ट्रिंग के रूप में मंद strPDFname स्ट्रिंग strPDFname = इनपुटबॉक्स ("पीडीएफ के लिए नाम दर्ज करें", "फ़ाइल का नाम "," उदाहरण ") यदि strPDFname = "" फिर 'उपयोगकर्ता ने इनपुटबॉक्स से टेक्स्ट हटा दिया है, तो डिफ़ॉल्ट नाम जोड़ें strPDFname = "example" अंत यदि strPath = ActiveDocument.Path यदि strPath = "" तो 'doc अभी तक सहेजा नहीं गया है strPath = Options. DefaultFilePath(wdDocumentsPath) और Application.PathSeparator Else 'सिर्फ \ अंत में जोड़ें strPath = strPath और Application.PathSeparator End if ActiveDocument.ExportAsFixedFormat OutputFileName:= _ strPath & strPDFname & ".pdf", _ ExportFormat:=wdExportFormatPDF, _ OpenAfterExport: =गलत, _ ऑप्टिमाइज़फॉर:=wdExportOptimizeForPrint, _ रेंज:=wdExportAllDocument, _डॉकप्रॉप्स शामिल करें:=सच, _ बुकमार्क बनाएं:=wdExportCreateWordBookmarks, _ BitmapMissingFonts:=ट्रू एंड सब

यह फ़ंक्शन किसी भी शब्द दस्तावेज़ को PDF के रूप में भी सहेजेगा:

Sub MacroSaveAsPDFwParameters (स्ट्रिंग के रूप में वैकल्पिक strPath, स्ट्रिंग के रूप में वैकल्पिक strFilename) 'strPath, यदि पारित हो गया है, तो पथ विभाजक ["\"] शामिल होना चाहिए यदि strFilename = "" फिर strFilename = ActiveDocument.Name End यदि 'एक्सटेंशन के बिना केवल फ़ाइल नाम निकालें यदि InStr (१, strFilename, ".") > 0 फिर strFilename = वाम $(strFilename, InStrRev(strFilename, ".") - 1) समाप्त अगर strPath = "" तो यदि ActiveDocument.Path = "" तो 'doc नहीं है अभी तक सहेजा गया है, हम डिफ़ॉल्ट पथ का उपयोग करेंगे strPath = Options.DefaultFilePath(wdDocumentsPath) & Application.PathSeparator Else 'सक्रिय doc strPath = Options.DefaultFilePath(wdDocumentsPath) & Application का पथ का उपयोग करें। OutputFileName:= _ strPath और strFilename और ".pdf", _ ExportFormat:=wdExportFormatPDF, _ OpenAfterExport:=गलत, _ ऑप्टिमाइज़फॉर:=wdExportOptimizeForPrint, _ रेंज:=wdExportAllDocument, _शामिल करेंDocProps:=True, _Bookmarks CreateBookmarks:=wdExportCreateW बिटमैपमिसिंगफोन ts:= ट्रू एक्जिट सब EXITHERE: MsgBox "त्रुटि:" और Err.Number & "" & Err.Description End Sub

पीडीएफ के रूप में किस फाइल को सहेजना है, यह इंगित करने के लिए आप फ़ाइल पथ और फ़ाइल नाम दर्ज कर सकते हैं:

Sub CallSaveAsPDF () MacroSaveAsPDFwParameters("c:/Documents", "example.docx") एंड सब को कॉल करें