Išsaugoti kaip
Ši „Word“ makrokomanda išsaugos „ActiveDocument“ nauju failo pavadinimu, apimančiu dabartinį laiką:
Sub SaveMewithDateName () 'išsaugo aktyvų dokumentą dabartiniame aplanke kaip filtruotą HTML ir pavadintas pagal dabartinį laiką Dim strTime As String strTime = Formatas (dabar, hh-mm) ActiveDocument.SaveAs FileName: = ActiveDocument.Path & "\" & strTime, FileFormat: = wdFormatFilteredHTML Pabaiga
Sukurkite ir išsaugokite
Ši VBA makrokomanda sukurs naują dokumentą ir išsaugos kaip dabartinę datą ir laiką:
Sub CreateAndSaveAs () 'sukuria naują dokumentą ir išsaugo kaip filtruotą html [Į numatytąjį aplanką ir pavadintas pagal dabartinį laiką] Dim strTime As String Dim strPath Kaip String Dim oDoc As Document strPath = ActiveDocument.Path & Application.PathSeparator strTime = Format (Dabar „yyyy-mm-dd hh-mm“) Nustatykite „oDoc = Documents.Add“, sukurkite naują dokumentą ir priskirkite jį prie „oDoc“ kintamojo “. "Apsilankykite https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strTime, FileFormat: = wdFormatFilteredHTML oDoc.Close wdDoNotSaveChanges uždaryti dokumentą End Sub
Išsaugoti kaip PDF
Ši makrokomanda išsaugos „Word“ dokumentą kaip PDF:
„Sub MacroSaveAsPDF ()“ makrokomanda išsaugo pdf failą tame pačiame aplanke, kuriame yra aktyvus dokumentas, arba dokumentų aplanke, jei failas dar neišsaugotas. „Dim strPath As String Dim strPDFname As String“ "," example ") Jei strPDFname =" "Tada 'vartotojas ištrino tekstą iš įvesties dėžutės, pridėkite numatytąjį pavadinimą strPDFname =" pavyzdys "Pabaiga Jei strPath = ActiveDocument.Path Jei strPath =" "Tada' doc dar neišsaugotas strPath = Options. „DefaultFilePath“ („wdDocumentsPath“) ir „Application.PathSeparator Else“ tiesiog pridėkite \ pabaigoje strPath = strPath & Application.PathSeparator End, jei ActiveDocument.ExportAsFixedFormat OutputFileName: = _ strPath & strPDFname & ".pdf", _ ExportPormExport = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Range: = wdExportAllDocument, _ IncludeDocProps: = True, _ CreateBookmarks: = wdExportCreateWordBookmarks, _ BitmapMissingFonts: = Tikrosios pabaigos antraštė
Ši funkcija taip pat išsaugos bet kokį žodinį dokumentą kaip PDF:
„Sub MacroSaveAsPDFwParameters“ (pasirenkamas „strPath As String“, „Optional strFilename As String“) „strPath“, jei jis perduotas, turi apimti kelio skyriklį ["\"] If strFilename = "" tada strFilename = ActiveDocument.Name End If 'ištraukti tik failo pavadinimą be plėtinio If InStr (1, strFilename, ".")> 0 Tada strFilename = Kairė $ (strFilename, InStrRev (strFilename, ".") - 1) Pabaiga If If strPath = "" Tada If ActiveDocument.Path = "" Tada "doc nėra dar išsaugotas, naudosime numatytąjį kelią strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Else 'aktyvaus dokumento naudojimo kelias strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator End If End If On Error GoTo EXITHERE ActiveFormed.Def. OutputFileName: = _ strPath & strFilename & ".pdf", _ ExportFormat: = wdExportFormatPDF, _ OpenAfterExport: = Netiesa, _ OptimizeFor: = wdExportOptimizeForPrint, _ Range: = wdExportAllDocument, _Weck: Įtraukti „BitmapMissingFon“ ts: = Tikras išėjimo antraštė EXITHERE: MsgBox "Error:" & Err.Number & "" & Err.Description End Sub
Galite nurodyti failo kelią ir failo pavadinimą, kad nurodytumėte, kurį failą norite išsaugoti kaip PDF:
Sub CallSaveAsPDF () Skambinti MacroSaveAsPDFwParameters ("c:/Documents", "example.docx") Pabaiga
