Μακροεντολές Word VBA - SaveAs (PDF ή νέο όνομα αρχείου)

Αποθήκευση ως

Αυτή η μακροεντολή του Word θα αποθηκεύσει το ActiveDocument με ένα νέο όνομα αρχείου που περιλαμβάνει την τρέχουσα ώρα:

Sub SaveMewithDateName () 'αποθηκεύει το ενεργό έγγραφο στον τρέχοντα φάκελο ως φιλτραρισμένο html και ονομάζεται την τρέχουσα ώρα Dim strTime As String strTime = Format (Now, "hh-mm") ActiveDocument.SaveAs FileName: = ActiveDocument.Path & "\" & strTime, FileFormat: = wdFormatFilteredHTML End Sub

Δημιουργία και αποθήκευση

Αυτή η μακροεντολή VBA θα δημιουργήσει ένα νέο έγγραφο και θα αποθηκευτεί ως χρήση της τρέχουσας ημερομηνίας και ώρας:

Sub CreateAndSaveAs () 'δημιουργεί ένα νέο έγγραφο και αποθηκεύει ως φιλτραρισμένο html [Στον προεπιλεγμένο φάκελο και ονομάζεται κατά την τρέχουσα ώρα] Dim strTime As String Dim strPath As String Dim oDoc As Document strPath = ActiveDocument.Path & Application.PathSeparator strTime = Format (Τώρα, "εεε-μμ-ηη hh-mm") Ορίστε oDoc = Έγγραφα. Προσθέστε "δημιουργήστε ένα νέο έγγραφο και αναθέστε το σε μεταβλητή oDoc" γράψτε κάποιο κείμενο στο νέο έγγραφο που αναφέρεται σε αυτό χρησιμοποιώντας μεταβλητή oDoc oDoc.Range.InsertBefore "Επισκεφτείτε τη διεύθυνση https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strTime, FileFormat: = wdFormatFilteredHTML oDoc.Close wdDoNotSaveChanges 'close doc End Sub

Αποθήκευση ως PDF

Αυτή η μακροεντολή θα αποθηκεύσει το έγγραφο του Word ως PDF:

Η μακροεντολή Sub MacroSaveAsPDF () 'αποθηκεύει το pdf είτε στον ίδιο φάκελο όπου βρίσκεται το ενεργό έγγραφο είτε στο φάκελο εγγράφων εάν το αρχείο δεν έχει αποθηκευτεί ακόμα' Dim strPath As String Dim strPDFname As String strPDFname = InputBox ("Εισαγωγή ονόματος για PDF", "Όνομα αρχείου "," παράδειγμα ") Εάν strPDFname =" "Τότε" ο χρήστης διέγραψε κείμενο από το inputbox, προσθέστε το προεπιλεγμένο όνομα strPDFname = "παράδειγμα" Τέλος εάν strPath = ActiveDocument.Path Εάν strPath = "" Τότε το έγγραφο δεν έχει αποθηκευτεί ακόμα strPath = Επιλογές. DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Αλλιώς 'απλά προσθέστε \ στο τέλος strPath = strPath & Application.PathSeparator Τέλος εάν ActiveDocument.ExportAsFixedFormat OutputFileName: = _ strPath & strPDFname & ".pddff: = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Range: = wdExportAllDocument, _ IncludeDocProps: = True, _ CreateBookmarks: = wdExportCreateWordBookmarks, _ BitmapMissingFonts: = True End Sub

Αυτή η λειτουργία θα αποθηκεύσει επίσης οποιοδήποτε έγγραφο word ως PDF:

Sub MacroSaveAsPDFwParameters (Προαιρετικό strPath As String, Προαιρετικό strFilename As String) 'Το strPath, εάν περάσει, πρέπει να περιλαμβάνει διαχωριστικό διαδρομής ["\"] If strFilename = "" Τότε strFilename = ActiveDocument.Name End If "εξαγάγετε μόνο όνομα αρχείου χωρίς επέκταση If InStr (1, strFilename " αποθηκευμένη ακόμα, θα χρησιμοποιήσουμε την προεπιλεγμένη διαδρομή strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Else »διαδρομή χρήσης ενεργού doc OutputFileName: = _ strPath & strFilename & ".pdf", _ ExportFormat: = wdExportFormatPDF, _ OpenAfterExport: = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Range: = wdExportArodeMooks, BitmapMissingFon ts: = True Exit Sub EXITHERE: MsgBox "Error:" & Err.Number & "" & Err.Description End Sub

Μπορείτε να εισαγάγετε τη διαδρομή και το όνομα του αρχείου για να υποδείξετε ποιο αρχείο θα αποθηκευτεί ως PDF:

Sub CallSaveAsPDF () Call MacroSaveAsPDFwParameters ("c:/Documents", "example.docx") End Sub