Macros de Word VBA - Guardar como (PDF o nuevo nombre de archivo)

Guardar como

Esta macro de Word guardará el documento activo con un nuevo nombre de archivo que incluye la hora actual:

Sub SaveMewithDateName () 'guarda el documento activo en la carpeta actual como un html filtrado y con el nombre de la hora actual Dim strTime As String strTime = Formato (ahora, "hh-mm") ActiveDocument.SaveAs FileName: = ActiveDocument.Path & "\" & strTime, FileFormat: = wdFormatFilteredHTML End Sub

Crear y guardar como

Esta macro de VBA creará un nuevo documento y se guardará usando la fecha y hora actuales:

Sub CreateAndSaveAs () 'crea un nuevo documento y lo guarda como un html filtrado [En la carpeta predeterminada y con el nombre de la hora actual] Dim strTime As String Dim strPath As String Dim oDoc As Document strPath = ActiveDocument.Path & Application.PathSeparator strTime = Format (Ahora, "aaaa-mm-dd hh-mm") Establezca oDoc = Documentos.Agregue 'cree un nuevo documento y asígnelo a la variable oDoc' escriba algo de texto en el nuevo documento refiriéndose a él usando la variable oDoc oDoc.Range.InsertBefore "Visite https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strTime, FileFormat: = wdFormatFilteredHTML oDoc.Close wdDoNotSaveChanges 'close doc End Sub

Guardar como pdf

Esta macro guardará el documento de Word como PDF:

La macro Sub MacroSaveAsPDF () 'guarda el pdf en la misma carpeta donde está el documento activo o en la carpeta de documentos si el archivo aún no está guardado' Dim strPath As String Dim strPDFname As String strPDFname = InputBox ("Ingrese el nombre para PDF", "Nombre de archivo "," ejemplo ") Si strPDFname =" "Entonces 'el usuario borró el texto de inputbox, agregue el nombre predeterminado strPDFname =" ejemplo "End If strPath = ActiveDocument.Path If strPath =" "Entonces' doc no está guardado todavía strPath = Options. DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Else 'simplemente agregue \ al final strPath = strPath & Application.PathSeparator End If ActiveDocument.ExportAsFixedFormat OutputFileName: = _ strPath & strPDFname & ".pdf", _ ExportFormat: = wDExportFormat: = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Rango: = wdExportAllDocument, _ IncludeDocProps: = True, _ CreateBookmarks: = wdExportCreateWordBookmarks, _ BitmapMissingFonts: = True End Sub

Esta función también guardará cualquier documento de Word como PDF:

Sub MacroSaveAsPDFwParameters (strPath opcional como cadena, strPath opcional como cadena) 'strPath, si se pasa, debe incluir el separador de ruta ["\"] Si strFilename = "" Then strFilename = ActiveDocument.Name End If' extraer solo el nombre del archivo sin extensión Si InStr (1, strFilename, ".")> 0 Then strFilename = Left $ (strFilename, InStrRev (strFilename, ".") - 1) End If If strPath = "" Then If ActiveDocument.Path = "" Entonces 'doc no es guardado aún, usaremos la ruta predeterminada 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.ExportAsFixed OutputFileName: = _ strPath & strFilename & ".pdf", _ ExportFormat: = wdExportFormatPDF, _ OpenAfterExport: = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Rango: = wdExportAllDocument, _ IncludeDocProps: = True, _Wdord CreateBookmarks: BitmapMissingFon ts: = True Exit Sub EXITHERE: MsgBox "Error:" & Err.Number & "" & Err.Description End Sub

Puede ingresar la ruta del archivo y el nombre del archivo para indicar qué archivo guardar como PDF:

Sub CallSaveAsPDF () Llamar a MacroSaveAsPDFwParameters ("c: / Documents", "example.docx") End Sub