MS Word: Macro para guardar como PDF con mismo nombre de archivo

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