Innholdsfortegnelse
Lagre som
Denne Word -makroen lagrer ActiveDocument med et nytt filnavn som inkluderer gjeldende tid:
Sub SaveMewithDateName () 'lagrer aktivt dokument i gjeldende mappe som en filtrert html og navngitt på nåværende tidspunkt Dim strTime As String strTime = Format (Nå, "hh-mm") ActiveDocument.SaveAs Filnavn: = ActiveDocument.Path & "\" & strTime, FileFormat: = wdFormatFilteredHTML End Sub
Opprett og lagre
Denne VBA -makroen vil opprette et nytt dokument og lagre ved hjelp av gjeldende dato og klokkeslett:
Sub CreateAndSaveAs () 'oppretter et nytt dokument og lagrer det som en filtrert html [I standardmappen og navngitt på gjeldende tidspunkt] Dim strTime As String Dim strPath As String Dim oDoc As Document strPath = ActiveDocument.Path & Application.PathSeparator strTime = Format (Nå, "åååå-mm-dd hh-mm") Sett oDoc = Documents.Add 'opprett et nytt dokument og tilord det til oDoc-variabel' skriv litt tekst i det nye dokumentet som refererer til det ved å bruke oDoc-variabel oDoc.Range.InsertBefore "Besøk https://easyexcel.net/vba-code-library" oDoc.SaveAs filnavn: = strPath & strTime, FileFormat: = wdFormatFilteredHTML oDoc.Close wdDoNotSaveChanges lukkede dokument Avslutt
Lagre som PDF
Denne makroen lagrer Word -dokumentet som en PDF:
Sub MacroSaveAsPDF () 'makro lagrer pdf enten i samme mappe der det aktive dokumentet er eller i dokumentmappen hvis filen ennå ikke er lagret' Dim strPath As String Dim strPDFname As String strPDFname = InputBox ("Skriv inn navn for PDF", "Filnavn "," eksempel ") Hvis strPDFname =" "Deretter 'bruker slettet tekst fra inputbox, legg til standardnavn strPDFname =" eksempel "Slutt hvis strPath = ActiveDocument.Path Hvis strPath =" "Da er ikke' doc lagret ennå strPath = Options. DefaultFilePath (wdDocumentsPath) og Application.PathSeparator Else bare legg til \ på slutten strPath = strPath & Application.PathSeparator End If ActiveDocument.ExportAsFixedFormat OutputFileName: = _ strPath & strPDFname & ".pdf", _ ExportFormat: = w = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Range: = wdExportAllDocument, _ IncludeDocProps: = True, _ Create Bookmarks: = wdExportCreateWordBookmarks, _ BitmapMissingFonts: = True End Sub
Denne funksjonen vil også lagre alle orddokumenter som en PDF:
Sub MacroSaveAsPDFwParameters (Valgfri strPath As String, Valgfri strFilename As String) 'strPath, hvis den er bestått, må inneholde banen separator ["\"] If strFilename = "" Then strFilename = ActiveDocument.Name End If' extract only file name without extension If InStr (1, strFilename, ".")> 0 Deretter strFilename = Left $ (strFilename, InStrRev (strFilename, ".") - 1) End If If strPath = "" Then If ActiveDocument.Path = "" Then 'doc is not lagret ennå, vil vi bruke standardbanen strPath = Options.DefaultFilePath (wdDocumentsPath) og Application.PathSeparator Else 'bruksti for aktiv doc strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator End If End If On Error GoTo EXITHERE ActiveDocument.ExportAXPORTFORMA OutputFileName: = _ strPath & strFilename & ".pdf", _ ExportFormat: = wdExportFormatPDF, _ OpenAfterExport: = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Range: = wdExportAllDocument, _ IncludeDocrops, Create: _WareExportDesign BitmapMissingFon ts: = True Exit Sub EXITHERE: MsgBox "Error:" & Err.Number & "" & Err.Description End Sub
Du kan angi filbanen og filnavnet for å angi hvilken fil som skal lagres som PDF:
Sub CallSaveAsPDF () Call MacroSaveAsPDFwParameters ("c:/Documents", "example.docx") End Sub
