Word VBA makronaredbe - Spremi kao (PDF ili naziv nove datoteke)

Spremi kao

Ova Word makronaredba spremit će ActiveDocument s novim nazivom datoteke koji uključuje trenutno vrijeme:

Sub SaveMewithDateName () 'sprema aktivni dokument u trenutnu mapu kao filtrirani HTML i nazvan prema trenutnom vremenu Dim strTime As String strTime = Format (Now, "hh-mm") ActiveDocument.SaveAs FileName: = ActiveDocument.Path & "\" & strTime, FileFormat: = wdFormatFilteredHTML End Sub

Stvaranje i spremanje

Ova VBA makronaredba stvorit će novi dokument i spremiti ga koristeći trenutni datum i vrijeme:

Sub CreateAndSaveAs () 'stvara novi dokument i sprema kao filtrirani html [U zadanoj mapi i nazvan prema trenutnom vremenu] Dim strTime As String Dim strPath As String Dim oDoc Kao dokument strPath = ActiveDocument.Path & Application.PathSeparator strTime = Format (Sada, "gggg-mm-dd hh-mm") Postavite oDoc = Documents.Add 'izradi novi dokument i dodijeli ga varijabli oDoc' upiši neki tekst u novi dokument pozivajući se na njega koristeći oDoc varijablu oDoc.Range.InsertBefore "Posjetite https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strTime, FileFormat: = wdFormatFilteredHTML oDoc.Close wdDoNotSaveChanges 'close doc End Sub

Spremi kao PDF

Ova će makronaredba spremiti Wordov dokument kao PDF:

Makronaredba Sub MacroSaveAsPDF () 'sprema pdf ili u istu mapu u kojoj je aktivan dokument ili u mapu dokumenata ako datoteka još nije spremljena' Dim strPath As String Dim strPDFname As String strPDFname = InputBox ("Unesite naziv za PDF", "Naziv datoteke "," example ") Ako je strPDFname =" "Tada je" korisnik izbrisao tekst iz okvira za unos, dodaj zadani naziv strPDFname = "primjer" Kraj "Ako je strPath = ActiveDocument.Path Ako je strPath =" "Tada 'doc još nije spremljen strPath = Opcije. DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Inače 'samo dodajte \ na kraju strPath = strPath & Application.PathSeparator End If ActiveDocument.ExportAsFixedFormat OutputFileName: = _ strPath & strPDFname & ".pdfExport, _ Export: = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Raspon: = wdExportAllDocument, _ IncludeDocProps: = True, _ Create Bookmarks: = wdExportCreateWordBookmarks, _ BitmapMissingFonts: = True End Sub

Ova funkcija također sprema bilo koji dokument u Word -u kao PDF:

Pod MacroSaveAsPDFwParameters (Opcijski strPath As String, Optional strFilename As String) 'strPath, ako je proslijeđen, mora uključivati ​​razdjelnik staza ["\"] Ako strFilename = "" Zatim strFilename = ActiveDocument.Name Kraj If' izdvojite samo naziv datoteke bez nastavka Ako je InStr (1, strFilename, ".")> 0 Zatim strFilename = Lijevo $ (strFilename, InStrRev (strFilename, ".") - 1) Kraj If Ako je strPath = "" Onda ako ActiveDocument.Path = "" Onda 'doc nije još spremljeno, koristit ćemo zadanu stazu strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Ostala 'staza korištenja aktivnih dokumenata strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Završi ako je kraj Ako je pogreška GoTo EXITEx ActiveX OutputFileName: = _ strPath & strFilename & ".pdf", _ ExportFormat: = wdExportFormatPDF, _ OpenAfterExport: = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Opseg: = wdExportAllDoDoznaci _, Window _Dokumenti _ BitmapMissingFon ts: = True Exit Sub EXITHERE: MsgBox "Error:" & Err.Number & "" & Err.Description End Sub

Možete unijeti put datoteke i naziv datoteke kako biste naznačili koju datoteku želite spremiti kao PDF:

Sub CallSaveAsPDF () Pozovite MacroSaveAsPDFwParameters ("c:/Documents", "example.docx") Kraj Sub