Indholdsfortegnelse
Gem som
Denne Word -makro gemmer ActiveDocument med et nyt filnavn, der indeholder den aktuelle tid:
Sub SaveMewithDateName () 'gemmer aktivt dokument i den aktuelle mappe som en filtreret html og navngivet på nuværende tidspunkt Dim strTime As String strTime = Format (Nu, "hh-mm") ActiveDocument.SaveAs Filnavn: = ActiveDocument.Path & "\" & strTime, FileFormat: = wdFormatFilteredHTML End Sub
Opret og gem som
Denne VBA -makro vil oprette et nyt dokument og gemme ved hjælp af den aktuelle dato og klokkeslæt:
Sub CreateAndSaveAs () 'opretter et nyt dokument og gemmer som en filtreret html [I standardmappen og navngivet på nuværende tidspunkt] Dim strTime As String Dim strPath As String Dim oDoc As Document strPath = ActiveDocument.Path & Application.PathSeparator strTime = Format (Nu, "åååå-mm-dd hh-mm") Indstil oDoc = Documents.Add 'opret et nyt dokument og tildel det til oDoc-variabel' skriv noget tekst i det nye dokument med henvisning til det ved hjælp af oDoc-variabel oDoc.Range.InsertBefore "Besøg https://easyexcel.net/vba-code-library" oDoc.SaveAs Filnavn: = strPath & strTime, FileFormat: = wdFormatFilteredHTML oDoc.Close wdDoNotSaveChanges 'tætte dokument Slut Sub
Gem som PDF
Denne makro gemmer Word -dokumentet som en PDF:
Sub MacroSaveAsPDF () 'makro gemmer pdf enten i den samme mappe, hvor den aktive doc er eller i dokumentmappen, hvis filen endnu ikke er gemt' Dim strPath As String Dim strPDFname As String strPDFname = InputBox ("Indtast navn til PDF", "Filnavn "," eksempel ") Hvis strPDFname =" "Derefter 'bruger slettet tekst fra inputbox, tilføj standardnavn strPDFname =" eksempel "End If strPath = ActiveDocument.Path Hvis strPath =" "Herefter er' doc ikke gemt endnu strPath = Options. DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Else 'tilføj bare \ i slutningen strPath = strPath & Application.PathSeparator End If ActiveDocument.ExportAsFixedFormat OutputFileName: = _ strPath & strPDFname & ".pdf", _ ExportFormat: = w = Falsk, _ OptimizeFor: = wdExportOptimizeForPrint, _ Range: = wdExportAllDocument, _ IncludeDocProps: = True, _ Create Bookmarks: = wdExportCreateWordBookmarks, _ BitmapMissingFonts: = True End Sub
Denne funktion gemmer også ethvert word -dokument som en PDF:
Sub MacroSaveAsPDFwParameters (Valgfri strPath Som String, Valgfri strFilename Som String) 'strPath, hvis den er bestået, skal indeholde stiseparator ["\"] Hvis strFilename = "" Så strFilename = ActiveDocument.Name End Hvis' udtræk bare filnavn uden udvidelse Hvis InStr (1, strFilename, ".")> 0 Så strFilename = Left $ (strFilename, InStrRev (strFilename, ".") - 1) End If If strPath = "" Then If ActiveDocument.Path = "" Then 'doc is not gemt endnu, vil vi bruge standardsti strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Else 'brugssti til aktiv doc strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator End If End If On Error GoTo EXITHERE ActiveDocument.ExportAXPORT OutputFileName: = _ strPath & strFilename & ".pdf", _ ExportFormat: = wdExportFormatPDF, _ OpenAfterExport: = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Range: = wdExportAllDocument, _ IncludeDocPropDate, _ IncludeDocPropDate BitmapMissingFon ts: = True Exit Sub EXITHERE: MsgBox "Error:" & Err.Number & "" & Err.Description End Sub
Du kan indtaste filstien og filnavnet for at angive, hvilken fil der skal gemmes som PDF:
Sub CallSaveAsPDF () Call MacroSaveAsPDFwParameters ("c:/Documents", "example.docx") End Sub
