Word vba macro to instantly export as pdf in the same folder

WordExportAsPdf.vba

Sub ExportAsPDF()
'Instantly export as pdf in the same folder
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        Replace(Replace(ActiveDocument.FullName, ".docx", ".pdf"), ".doc", ".pdf"), _
        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, Item:= _
        wdExportDocumentContent, IncludeDocProps:=False, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
End Sub