Corregir Macro que guarda de Word a PDF
Tengo este macro
Sub Macro1() Dim URL As String Dim nombres As String URL = "D:\Dropbox\" nombres = Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 4) ActiveDocument.ExportAsFixedFormat _ OutputFileName:=URL & nombres & ".pdf", _ ExportFormat:=wdExportFormatPDF, _ OpenAfterExport:=False, _ OptimizeFor:=wdExportOptimizeForPrint, _ Range:=wdExportAllDocument, _ From:=1, _ To:=1, _ Item:=wdExportDocumentContent, _ IncludeDocProps:=True, _ KeepIRM:=True, _ CreateBookmarks:= _ wdExportCreateNoBookmarks, _ DocStructureTags:=True, _ BitmapMissingFonts:=True, _ UseISO19005_1:=False ChangeFileOpenDirectory URL End Sub
Siempre en el documento de word hay una linea con este formato:
Préstamo 999-999999 adeudado por: JUAN PEREZ
Quiero que al guardar el archivo lo guarde con el nombre que tiene actualmente (hasta aquí todo bien) pero también que le agregue el nombre de JUAN PEREZ
EJEMPLO:
Nombre del Archivo: A0002511
Línea que siempre sale en word: Préstamo 002-001254 adeudado por: Emmanuel Guzman
Debe guardar el archivo como: A0002511 Emmanuel Guzman PDF
1 Respuesta
Respuesta de Programar Excel
1