Word VBA makro - SaveAs (PDF või uus failinimi)

Salvesta kui

See Wordi makro salvestab ActiveDocumenti uue failinimega, mis sisaldab praegust aega:

Sub SaveMewithDateName () 'salvestab aktiivse dokumendi praegusesse kausta filtreeritud html-vormingus ja kannab nime praegusel ajal Dim strTime As String strTime = Formaat (nüüd, "hh-mm") ActiveDocument.SaveAs FileName: = ActiveDocument.Path & "\" & strTime, FileFormat: = wdFormatFilteredHTML End Sub

Loo ja salvesta

See VBA makro loob uue dokumendi ja salvestab selle praeguse kuupäeva ja kellaajana:

Sub CreateAndSaveAs () 'loob uue dokumendi ja salvestab filtreeritud html -failina [Vaikimisi kausta ja nimega praegusel ajal] Dim strTime As String Dim strPath Stringina Dim oDoc As Document strPath = ActiveDocument.Path & Application.PathSeparator strTime = Format (Nüüd "yyyy-mm-dd hh-mm") Määra oDoc = Documents.Add "loo uus dokument ja seo see muutujaga oDoc" kirjuta uude dokumenti teksti, viidates sellele oDoc muutuja oDoc.Range.InsertBefore kaudu "Külastage saiti https://easyexcel.net/vba-code-library"

Salvesta PDF -failina

See makro salvestab Wordi dokumendi PDF -failina:

Sub MacroSaveAsPDF () 'makro salvestab pdf -faili kas samasse kausta, kus aktiivne dokument asub, või dokumentide kausta, kui faili pole veel salvestatud. "," example ") If strPDFname =" "Siis 'kasutaja kustutas sisendkastist teksti, lisage vaikenimi strPDFname =" näide "Lõpp Kui strPath = ActiveDocument.Path Kui strPath =" "Siis pole dokumenti veel salvestatud strPath = Options. DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Else "lisage lihtsalt \ lõpus strPath = strPath & Application.PathSeparator End If ActiveDocument.ExportAsFixedFormat OutputFileName: = _ strPath & strPDFname &" .pdf ", _ ExportDormExport = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Range: = wdExportAllDocument, _ IncludeDocProps: = True, _ CreateBookmarks: = wdExportCreateWordBookmarks, _ BitmapMissingFonts: = True End Sub

See funktsioon salvestab ka kõik Wordi dokumendid PDF -failina:

Sub MacroSaveAsPDFwParameters (valikuline strPath kui string, valikuline strFilename kui string) 'strPath, kui see on läbitud, peab sisaldama tee eraldajat ["\"] If strFilename = "" Siis strFilename = ActiveDocument.Name End If' ekstrakt lihtsalt failinimi ilma laiendita If InStr (1, strFilename, ".")> 0 Siis strFilename = Left $ (strFilename, InStrRev (strFilename, ".") - 1) End If If strPath = "" Siis If ActiveDocument.Path = "" Siis 'doc ei ole veel salvestatud, kasutame vaikimisi teed strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Else 'aktiivse dokumendi tee tee strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator End If End if On Error GoTo EXITHERE ActiveDormExDexE OutputFileName: = _ strPath & strFilename & ".pdf", _ ExportFormat: = wdExportFormatPDF, _ OpenAfterExport: = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Range: = wdExportAllDocument, _Works: BitmapMissingFon ts: = True Exit Sub EXITHERE: MsgBox "Error:" & Err.Number & "" & Err.Description End Sub

Saate sisestada faili tee ja faili nime, et näidata, milline fail PDF -failina salvestada.

Alam CallSaveAsPDF () Helista MacroSaveAsPDFwParameters ("c:/Documents", "example.docx") Lõpu alam