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
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