Salvează ca
Această macrocomandă Word va salva ActiveDocument cu un nou nume de fișier care include ora curentă:
Sub SaveMewithDateName () 'salvează documentul activ în folderul curent ca un html filtrat și numit după ora curentă Dim strTime As String strTime = Format (Acum, "hh-mm") ActiveDocument.SaveAs FileName: = ActiveDocument.Path & "\" & strTime, FileFormat: = wdFormatFilteredHTML End Sub
Creați și Salvați
Această macrocomandă VBA va crea un document nou și o va salva folosind data și ora curente:
Sub CreateAndSaveAs () 'creează un nou document și salvează ca html filtrat [În folderul implicit și denumit la ora curentă] Dim strTime As String Dim strPath As String Dim oDoc As Document strPath = ActiveDocument.Path & Application.PathSeparator strTime = Format (Acum, „aaaa-mm-zz hh-mm”) Setați oDoc = Documente.Adăugați „creați un nou doc și atribuiți-o variabilei oDoc” scrieți un text în noul document referindu-vă la acesta utilizând variabila oDoc oDoc.Range.InsertBefore „Accesați https://easyexcel.net/vba-code-library” oDoc.SaveAs FileName: = strPath & strTime, FileFormat: = wdFormatFilteredHTML oDoc.Închideți wdDoNotSaveChanges 'close doc End Sub
Salvați ca PDF
Această macrocomandă va salva documentul Word ca PDF:
Sub MacroSaveAsPDF () 'macro salvează pdf fie în același folder în care este documentul activ, fie în folderul de documente dacă fișierul nu este încă salvat' Dim strPath As String Dim strPDFname As String strPDFname = InputBox ("Introduceți numele pentru PDF", "Nume fișier "," exemplu ") Dacă strPDFname =" "Atunci 'utilizatorul a șters text din caseta de intrare, adăugați numele implicit strPDFname =" exemplu "Sfârșit Dacă strPath = ActiveDocument.Path Dacă strPath =" "Atunci' doc nu este încă salvat strPath = Opțiuni. DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Else 'doar adăugați \ la final strPath = strPath & Application.PathSeparator End If ActiveDocument.ExportAsFixedFormat OutputFileName: = _ strPath & strPDFname & ".pdf", _ExDForm:: = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Range: = wdExportAllDocument, _ IncludeDocProps: = True, _ CreateBookmarks: = wdExportCreateWordBookmarks, _ BitmapMissingFonts: = True End Sub
Această funcție va salva, de asemenea, orice document Word ca PDF:
Sub MacroSaveAsPDFwParameters (Optional strPath As String, Optional strFilename As String) 'strPath, dacă este trecut, trebuie să includă calea separator ["\"] If strFilename = "" Then strFilename = ActiveDocument.Name End If' extract just file file without extension If InStr (1, strFilename, ".")> 0 Apoi strFilename = Left $ (strFilename, InStrRev (strFilename, ".") - 1) End If If strPath = "" Then If ActiveDocument.Path = "" Then 'doc is not salvat încă, vom utiliza calea implicită strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Else 'use path of active doc strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator End If End If On Error GoTo EXITHERE ActiveDocument.Export OutputFileName: = _ strPath & strFilename & ".pdf", _ ExportFormat: = wdExportFormatPDF, _ OpenAfterExport: = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Range: = wdExportAllDocument, _ IncludeDreapt: BitmapMissingFon ts: = True Exit Sub EXITHERE: MsgBox "Error:" & Err.Number & "" & Err.Description End Sub
Puteți introduce calea fișierului și numele fișierului pentru a indica ce fișier să salvați ca PDF:
Sub CallSaveAsPDF () Call MacroSaveAsPDFwParameters ("c: / Documents", "example.docx") End Sub
