Innehållsförteckning
Spara som
Detta Word -makro sparar ActiveDocument med ett nytt filnamn som innehåller aktuell tid:
Sub SaveMewithDateName () 'sparar aktivt dokument i nuvarande mapp som en filtrerad html och namnges vid aktuell tid Dim strTime As String strTime = Format (Nu, "hh-mm") ActiveDocument.SaveAs Filnamn: = ActiveDocument.Path & "\" & strTime, FileFormat: = wdFormatFilteredHTML End Sub
Skapa och sparaAs
Detta VBA -makro skapar ett nytt dokument och sparar med aktuellt datum och tid:
Sub CreateAndSaveAs () 'skapar ett nytt dokument och sparar som en filtrerad html [I standardmappen och namnges vid aktuell tid] Dim strTime As String Dim strPath As String Dim oDoc As Document strPath = ActiveDocument.Path & Application.PathSeparator strTime = Format (Nu, "åååå-mm-dd hh-mm") Ställ in oDoc = Documents.Add 'skapa ett nytt dokument och tilldela det till oDoc-variabel' skriv lite text i det nya dokumentet med hänvisning till det med hjälp av oDoc-variabel oDoc.Range.InsertBefore "Besök https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strTime, FileFormat: = wdFormatFilteredHTML oDoc.Close wdDoNotSaveChanges stänga dokument Slut Sub
Spara som PDF
Detta makro sparar Word -dokumentet som en PDF:
Sub MacroSaveAsPDF () 'makro sparar pdf antingen i samma mapp där det aktiva dokumentet är eller i dokumentmappen om filen ännu inte är sparad' Dim strPath As String Dim strPDFname As String strPDFname = InputBox ("Ange namn för PDF", "Filnamn "," exempel ") Om strPDFname =" "Sedan har" användaren raderat text från inmatningsboxen, lägg till standardnamn strPDFname = "exempel" Avsluta om strPath = ActiveDocument.Path Om strPath = "" Då är "doc" inte sparat ännu strPath = Options. DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Else 'lägg bara till \ i slutet strPath = strPath & Application.PathSeparator End If ActiveDocument.ExportAsFixedFormat OutputFileName: = _ strPath & strPDFname & ".pdf", _ ExportFormat: = w = Falskt, _ OptimizeFor: = wdExportOptimizeForPrint, _ Range: = wdExportAllDocument, _ IncludeDocProps: = True, _ CreateBookmarks: = wdExportCreateWordBookmarks, _ BitmapMissingFonts: = True End Sub
Denna funktion kommer också att spara alla word -dokument som en PDF:
Sub MacroSaveAsPDFwParameters (Valfri strPath As String, Valfri strFilename As String) 'strPath, om den godkänns, måste inkludera sökvägsseparator ["\"] If strFilename = "" Sedan strFilename = ActiveDocument.Name End If' extrahera bara filnamn utan tillägg Om InStr (1, strFilename, ".")> 0 Då strFilename = Left $ (strFilename, InStrRev (strFilename, ".") - 1) End If If strPath = "" Then If ActiveDocument.Path = "" Then 'doc is not sparad ännu, kommer vi att använda standardväg strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Else 'användningsväg för 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, CreateIn_Dokument, _ IncludeDocrops, Skapa_Dokument, _ Inkludera: Skapa BitmapMissingFon ts: = True Exit Sub EXITHERE: MsgBox "Error:" & Err.Number & "" & Err.Description End Sub
Du kan ange sökvägen och filnamnet för att ange vilken fil som ska sparas som PDF:
Sub CallSaveAsPDF () Call MacroSaveAsPDFwParameters ("c:/Documents", "example.docx") End Sub
