Word VBA makro - SaveAs (PDF vai jauns faila nosaukums)

Saglabāt kā

Šis Word makro saglabās ActiveDocument ar jaunu faila nosaukumu, kas ietver pašreizējo laiku:

Sub SaveMewithDateName () 'saglabā aktīvo dokumentu pašreizējā mapē kā filtrētu html un nosauc pēc pašreizējā laika Dim strTime As String strTime = Format (Tagad, "hh-mm") ActiveDocument.SaveAs FileName: = ActiveDocument.Path & "\" & strTime, FileFormat: = wdFormatFilteredHTML beigu apakšdaļa

Izveidot un saglabāt

Šis VBA makro izveidos jaunu dokumentu un saglabās kā pašreizējo datumu un laiku:

Sub CreateAndSaveAs () 'izveido jaunu dokumentu un saglabā kā filtrētu html [Noklusējuma mapē un nosaukts pašreizējā laikā] Dim strTime As String Dim strPath As String Dim oDoc As Document strPath = ActiveDocument.Path & Application.PathSeparator strTime = Format (Tagad "gggg-mm-dd hh-mm") Iestatiet oDoc = Documents.Add 'izveidojiet jaunu dokumentu un piešķiriet to oDoc mainīgajam' uzrakstiet kādu tekstu jaunajā dokumentā, atsaucoties uz to, izmantojot oDoc mainīgo oDoc.Range.InsertBefore "Apmeklējiet vietni https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strTime, FileFormat: = wdFormatFilteredHTML oDoc.Close wdDoNotSaveChanges aizveriet dokumentu End Sub

Saglabāt kā PDF

Šis makro Word dokumentu saglabās kā PDF failu:

Sub MacroSaveAsPDF () 'makro saglabā pdf vai nu tajā pašā mapē, kur atrodas aktīvais dokuments, vai dokumentu mapē, ja fails vēl nav saglabāts. "," example ") If strPDFname =" "Tad 'lietotājs izdzēsa tekstu no ievades lodziņa, pievienojiet noklusējuma nosaukumu strPDFname =" piemērs "Beigas Ja strPath = ActiveDocument.Path Ja strPath =" "Tad' dok vēl nav saglabāts strPath = Options. DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Else 'vienkārši pievienojiet \ beigās strPath = strPath & Application.PathSeparator End if ActiveDocument.ExportAsFixedFormat OutputFileName: = _ strPath & strPDFname & ".pdf", _ ExportPormExport = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Range: = wdExportAllDocument, _ IncludeDocProps: = True, _ CreateBookmarks: = wdExportCreateWordBookmarks, _ BitmapMissingFonts: = True End Sub

Šī funkcija arī saglabās jebkuru Word dokumentu kā PDF:

Sub MacroSaveAsPDFwParameters (neobligāts strPath kā ​​virkne, neobligāts strFilename kā virkne) 'strPath, ja tas ir nokārtots, jāietver ceļu atdalītājs ["\"] If strFilename = "" then strFilename = ActiveDocument.Name End If' ekstrakts tikai faila nosaukums bez paplašinājuma If InStr (1, strFilename, ".")> 0 Tad strFilename = Pa kreisi $ (strFilename, InStrRev (strFilename, ".") - 1) End If If strPath = "" Tad If ActiveDocument.Path = "" Tad 'doc nav vēl saglabāts, mēs izmantosim noklusējuma ceļu strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Else 'izmantošanas ceļš aktīvajam dokumentam strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator End If End If On Error OutputFileName: = _ strPath & strFilename & ".pdf", _ ExportFormat: = wdExportFormatPDF, _ OpenAfterExport: = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Range: = wdExportAllDocument, _Wear: BitmapMissingFon ts: = True Exit Sub EXITHERE: MsgBox "Error:" & Err.Number & "" & Err.Description End Sub

Jūs varat ievadīt faila ceļu un faila nosaukumu, lai norādītu, kurš fails jāsaglabā kā PDF:

Sub CallSaveAsPDF () Zvanīt MacroSaveAsPDFwParameters ("c:/Documents", "example.docx") Beigu apakš