Shrani kot
Ta Wordov makro bo shranil ActiveDocument z novim imenom datoteke, ki vključuje trenutni čas:
Sub SaveMewithDateName () 'shrani aktivni dokument v trenutno mapo kot filtriran html in poimenovan po trenutnem času Dim strTime As String strTime = Format (Now, "hh-mm") ActiveDocument.SaveAs FileName: = ActiveDocument.Path & "\" & strTime, FileFormat: = wdFormatFilteredHTML End Sub
Ustvari in shrani
Ta makro VBA bo ustvaril nov dokument in ga shranil z uporabo trenutnega datuma in časa:
Sub CreateAndSaveAs () 'ustvari nov dokument in shrani kot filtriran html [V privzeti mapi in imenovan glede na trenutni čas] Dim strTime As String Dim strPath As String Dim oDoc Kot dokument strPath = ActiveDocument.Path & Application.PathSeparator strTime = Format (Zdaj "yyyy-mm-dd hh-mm") Nastavite oDoc = Documents.Add "ustvarite nov dokument in ga dodelite spremenljivki oDoc" napišite nekaj besedila v nov dokument, ki se nanaša nanj s pomočjo spremenljivke oDoc oDoc.Range.InsertBefore "Obiščite https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strTime, FileFormat: = wdFormatFilteredHTML oDoc.Close wdDoNotSaveChanges 'close doc End Sub
Shrani kot PDF
Ta makro bo shranil Wordov dokument kot PDF:
Sub MacroSaveAsPDF () 'makro shrani pdf bodisi v isto mapo, kjer je aktiven dokument, ali v mapo z dokumenti, če datoteka še ni shranjena' Dim strPath As String Dim strPDFname As String strPDFname = InputBox ("Vnesite ime za PDF", "Ime datoteke "," example ") Če je strPDFname =" "Potem je" uporabnik izbrisal besedilo iz vnosnega polja, dodaj privzeto ime strPDFname = "example" Konec Če je strPath = ActiveDocument.Path Če strPath = "" Potem 'doc še ni shranjen strPath = Možnosti. DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Drugače 'samo dodajte \ na koncu strPath = strPath & Application.PathSeparator End Če je ActiveDocument.ExportAsFixedFormat OutputFileName: = _ strPath & strPDFname & ".pdfEx, _ Export: = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Obseg: = wdExportAllDocument, _ IncludeDocProps: = True, _ CreateBookmarks: = wdExportCreateWordBookmarks, _ BitmapMissingFonts: = True End Sub
Ta funkcija bo shranila tudi kateri koli besedni dokument kot PDF:
Sub MacroSaveAsPDFwParameters (Izbirno strPath As String, Izbirno strFilename As String) 'strPath, če je podano, mora vključevati ločevalnik poti ["\"] Če strFilename = "" Potem strFilename = ActiveDocument.Name End If' izvleči samo ime datoteke brez razširitve Če je InStr (1, strFilename, ".")> 0 Potem strFilename = Levo $ (strFilename, InStrRev (strFilename, ".") - 1) Konec If Če strPath = "" Potem Če ActiveDocument.Path = "" Potem 'doc ni še shranjeno, bomo uporabili privzeto pot strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Druga pot do aktivnega doc strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator End Če končate Če je napaka, pojdite na EXITE OutputFileName: = _ strPath & strFilename & ".pdf", _ ExportFormat: = wdExportFormatPDF, _ OpenAfterExport: = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Obseg: = wdExportAllDoDoznaki _ BitmapMissingFon ts: = True Exit Sub EXITHERE: MsgBox "Error:" & Err.Number & "" & Err.Description End Sub
Lahko vnesete pot do datoteke in ime datoteke, da označite, katero datoteko shranite kot PDF:
Sub CallSaveAsPDF () Pokliči MacroSaveAsPDFwParameters ("c:/Documents", "example.docx") End Sub
