Makra Word VBA - SaveAs (PDF nebo název nového souboru)

Uložit jako

Toto makro aplikace Word uloží ActiveDocument s novým názvem souboru, který obsahuje aktuální čas:

Sub SaveMewithDateName () 'uloží aktivní dokument do aktuální složky jako filtrovaný html a pojmenovaný podle aktuálního času Dim strTime As String strTime = Format (Now, "hh-mm") ActiveDocument.SaveAs FileName: = ActiveDocument.Path & "\" & strTime, FileFormat: = wdFormatFilteredHTML End Sub

Vytvořit a uložit jako

Toto makro VBA vytvoří nový dokument a uloží jej pomocí aktuálního data a času:

Sub CreateAndSaveAs () 'vytvoří nový dokument a uloží jako filtrovaný html [Ve výchozí složce a pojmenované podle aktuálního času] Dim strTime As String Dim strPath As String Dim oDoc As Document strPath = ActiveDocument.Path & Application.PathSeparator strTime = Format (Nyní „rrrr-mm-dd hh-mm“) Nastavit oDoc = Documents.Add 'vytvořit nový dokument a přiřadit jej k proměnné oDoc' napsat nějaký text v novém dokumentu, který na něj odkazuje, pomocí proměnné oDoc oDoc.Range.InsertBefore "Navštivte https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strTime, FileFormat: = wdFormatFilteredHTML oDoc.Close wdDoNotSaveChanges 'close doc End Sub

Uložit jako PDF

Toto makro uloží dokument aplikace Word jako PDF:

Makro Sub MacroSaveAsPDF () 'ukládá pdf buď do stejné složky, kde je aktivní dokument, nebo do složky dokumentů, pokud soubor ještě není uložen' Dim strPath As String Dim strPDFname As String strPDFname = InputBox ("Zadejte název pro PDF", "Název souboru "," příklad ") Pokud strPDFname =" "Potom 'uživatel odstranil text ze vstupního pole, přidejte výchozí název strPDFname =" příklad "End If strPath = ActiveDocument.Path If strPath =" "Pak' doc ještě není uložen strPath = Možnosti. DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Jinak 'stačí přidat \ na konec strPath = strPath & Application.PathSeparator End If ActiveDocument.ExportAsFixedFormat OutputFileName: = _ strPath & strPDFname & ".pdf", _ ExportFormat: = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Range: = wdExportAllDocument, _ IncludeDocProps: = True, _ CreateBookmarks: = wdExportCreateWordBookmarks, _ BitmapMissingFonts: = True End Sub

Tato funkce také uloží jakýkoli dokument ve formátu PDF:

Sub MacroSaveAsPDFwParameters (volitelný strPath jako řetězec, volitelný strFilename jako řetězec) 'strPath, pokud je předán, musí obsahovat oddělovač cesty ["\"] If strFilename = "" Then strFilename = ActiveDocument.Name End If' extrahujte pouze název souboru bez přípony If InStr (1, strFilename, ".")> 0 Pak strFilename = Left $ (strFilename, InStrRev (strFilename, ".") - 1) End If If strPath = "" Then If ActiveDocument.Path = "" Then 'doc is not zatím uloženo, použijeme výchozí cestu strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Jinak použijte cestu aktivního 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 Chybějící bitmapaFon ts: = True Exit Sub EXITHERE: MsgBox "Error:" & Err.Number & "" & Err.Description End Sub

Můžete zadat cestu k souboru a název souboru a určit, který soubor se má uložit jako PDF:

Sub CallSaveAsPDF () Volání MacroSaveAsPDFwParameters ("c:/Documents", "example.docx") End Sub