Esta macro guarda un archivo como PDF con el mismo nombre del archivo activo.
Ejemplo:
Archivo Curriculum.docx al correr la macro lo guardará en la misma carpeta de origen como Curriculum.pdf
[code]
Sub saveit2PDF()
‘
‘ saveit2PDF Macro
‘
‘
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
ActiveDocument.Path & "\" & Left(ActiveDocument.Name, _
Len(ActiveDocument.Name) – 5) & ".pdf", ExportFormat:= _
wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
End Sub
[/code]
