MSExcel、MSWordの文書をショートカットキー一発でPDF出力

ExcelToPDF.bas

Attribute VB_Name = "PDF"
Option Explicit

Sub SaveToPDF()
Attribute SaveToPDF.VB_ProcData.VB_Invoke_Func = " \n14"
    Dim saveTo As String
    saveTo = GetDesktopDir() & Format(Now(), "yyyyMMdd_hhmmss") & ".pdf"

    ActiveWorkbook.ExportAsFixedFormat _
        Type:=xlTypePDF _
        , Filename:=saveTo _
        , Quality:=xlQualityStandard _
        , OpenAfterPublish:=True
End Sub

Function GetDesktopDir() As String
    Dim wsh As Variant
    Dim desktop As String
    
    Set wsh = CreateObject("WScript.Shell")
    desktop = wsh.SpecialFolders("Desktop") & "\"
    Set wsh = Nothing
    GetDesktopDir = desktop
End Function

WordToPDF.bas

Attribute VB_Name = "PDF"
Option Explicit

Sub SaveToPDF()
    Dim saveTo As String
    saveTo = GetDesktopDir() & Format(Now(), "yyyyMMdd_hhmmss") & ".pdf"

    ActiveDocument.ExportAsFixedFormat _
        OutputFileName:=saveTo _
        , ExportFormat:=wdExportFormatPDF _
        , OpenAfterExport:=True _
        , OptimizeFor:=wdExportOptimizeForPrint _
        , Range:=wdExportAllDocument
End Sub

Function GetDesktopDir() As String
    Dim wsh As Variant
    Dim desktop As String
    
    Set wsh = CreateObject("WScript.Shell")
    desktop = wsh.SpecialFolders("Desktop") & "\"
    Set wsh = Nothing
    GetDesktopDir = desktop
End Function