Uložiť ako
Toto makro programu Word uloží ActiveDocument s novým názvom súboru, ktorý obsahuje aktuálny čas:
Sub SaveMewithDateName () 'uloží aktívny dokument do aktuálneho priečinka ako filtrovaný html a pomenovaný podľa aktuálneho času Dim strTime As String strTime = Format (Now, "hh-mm") ActiveDocument.SaveAs FileName: = ActiveDocument.Path & "\" & strTime, FileFormat: = wdFormatFilteredHTML End Sub
Vytvoriť a uložiť ako
Toto makro VBA vytvorí nový dokument a uloží ho podľa aktuálneho dátumu a času:
Sub CreateAndSaveAs () 'vytvorí nový dokument a uloží ho ako filtrovaný html [V predvolenom priečinku a pomenovanom podľa aktuálneho času] Dim strTime As String Dim strPath As String Dim oDoc As Document strPath = ActiveDocument.Path & Application.PathSeparator strTime = Format (Teraz „rrrr-mm-dd hh-mm“) Nastavte oDoc = Documents.Add 'vytvorte nový dokument a priraďte ho k premennej oDoc' napíšte nejaký text do nového dokumentu, ktorý ho odkazuje, pomocou premennej oDoc oDoc.Range.InsertBefore "Navštívte https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strTime, FileFormat: = wdFormatFilteredHTML oDoc.Close wdDoNotSaveChanges 'close doc End Sub
Uložiť ako PDF
Toto makro uloží dokument programu Word ako PDF:
Makro Sub MacroSaveAsPDF () „ukladá súbory pdf buď do rovnakého priečinka, v ktorom je aktívny dokument, alebo do priečinka s dokumentmi, ak súbor ešte nie je uložený“ Dim strPath As String Dim strPDFname As String strPDFname = InputBox („Enter name for PDF“, „File Name "," example ") Ak strPDFname =" "Potom 'používateľ odstránil text zo vstupného poľa, pridajte predvolený názov strPDFname =" príklad "Koniec Ak strPath = ActiveDocument.Path Ak strPath =" "Potom dokument ešte nie je uložený strPath = Možnosti. DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Jinak stačí pridať \ na koniec strPath = strPath & Application.PathSeparator Koniec Ak ActiveDocument.ExportAsFixedFormat OutputFileName: = _ strPath & strPDFname & ".pdf", _ ExportFormat: = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Range: = wdExportAllDocument, _ IncludeDocProps: = True, _ CreateBookmarks: = wdExportCreateWordBookmarks, _ BitmapMissingFonts: = True End Sub
Táto funkcia tiež uloží akýkoľvek dokument vo formáte PDF:
Sub MacroSaveAsPDFwParameters (voliteľný strPath ako reťazec, voliteľný strFilename ako reťazec) „strPath, ak je zadaný, musí obsahovať oddeľovač cesty [" \ "] If strFilename =" "Then strFilename = ActiveDocument.Name End If 'extrahovať iba názov súboru bez prípony If InStr (1, strFilename, ".")> 0 Potom strFilename = Vľavo $ (strFilename, InStrRev (strFilename, ".") - 1) Koniec If If strPath = "" Then If ActiveDocument.Path = "" Then 'doc is not zatiaľ uložené, použijeme predvolenú cestu strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Iný spôsob použitia aktívneho dokumentu strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator End If End If On Error GoTo EXITHERExAxport OutputFileName: = _ strPath & strFilename & ".pdf", _ ExportFormat: = wdExportFormatPDF, _ OpenAfterExport: = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Range: = wdExportAllDocument, _ IncludeDoc BitmapMissingFon ts: = Sub Sub True Exit EXITHERE: MsgBox "Chyba:" & Err.Number & "" & Err.Popis Koniec Sub
Môžete zadať cestu k súboru a názov súboru, aby ste určili, ktorý súbor sa má uložiť ako PDF:
Sub CallSaveAsPDF () Volanie MacroSaveAsPDFwParameters ("c:/Documents", "example.docx") End Sub