询问Office是否提供预定义条件编译常量以区分VBA运行环境

Office VBA没有提供预定义的条件编译常量（如你代码中的APPWORD、APPEXCEL）来直接区分Word、Excel、Visio、Outlook等不同应用。要编写可直接导入任意Office应用的通用模块，无需额外引用或自定义常量，可采用以下两种可靠方案：

方案1：利用Application.Name属性匹配 #

这种方案通过读取当前应用的名称来分支逻辑，代码简洁直观，若需兼容非英文系统，可结合Application.Path或进程名辅助判断：

Sub ArchiveMe()
    Select Case Application.Name
        Case "Microsoft Word"
            ActiveDocument.SaveAs "C:\Archive\Word_Backup.docx"
        Case "Microsoft Excel"
            ActiveWorkbook.SaveAs "C:\Archive\Excel_Backup.xlsx", FileFormat:=51 ' 51对应xlsx格式
        Case "Microsoft Visio"
            ActiveDocument.SaveAs "C:\Archive\Visio_Backup.vsdx"
        Case "Microsoft Outlook"
            ' 处理Outlook活动项，用数值代替枚举常量避免引用
            If TypeName(Application.ActiveWindow.CurrentItem) = "MailItem" Then
                Application.ActiveWindow.CurrentItem.SaveAs "C:\Archive\Outlook_Backup.msg", 3 ' 3对应olMSG格式
            End If
    End Select
End Sub

方案2：错误捕获检测对象存在性 #

这种方案通过尝试访问各应用特有的对象（如Word的ActiveDocument、Excel的ActiveWorkbook），结合错误捕获判断当前应用类型，避免语言版本导致的名称匹配问题，兼容性更强：

Sub ArchiveMe()
    Dim targetObj As Object
    
    ' 检测Word
    On Error Resume Next
    Set targetObj = ActiveDocument
    On Error GoTo 0
    If Not targetObj Is Nothing Then
        targetObj.SaveAs "C:\Archive\Word_Backup.docx"
        Exit Sub
    End If
    
    ' 检测Excel
    On Error Resume Next
    Set targetObj = ActiveWorkbook
    On Error GoTo 0
    If Not targetObj Is Nothing Then
        targetObj.SaveAs "C:\Archive\Excel_Backup.xlsx", FileFormat:=51
        Exit Sub
    End If
    
    ' 检测Visio（与Word区分：验证Visio专属Pages集合）
    On Error Resume Next
    Set targetObj = ActiveDocument
    If Not targetObj Is Nothing Then
        Dim dummy As Object
        Set dummy = targetObj.Pages
        On Error GoTo 0
        If Not dummy Is Nothing Then
            targetObj.SaveAs "C:\Archive\Visio_Backup.vsdx"
            Exit Sub
        End If
    End If
    
    ' 检测Outlook
    On Error Resume Next
    Set targetObj = Application.ActiveWindow.CurrentItem
    On Error GoTo 0
    If Not targetObj Is Nothing Then
        targetObj.SaveAs "C:\Archive\Outlook_Backup.msg", 3
    End If
End Sub

关键注意事项 #

• 对于Office枚举常量（如olMSG、xlOpenXMLWorkbook），直接使用对应的数值代替，避免添加应用引用导致的编译错误。
• 所有操作均采用后期绑定，无需提前添加任何Office应用的引用，模块可直接导入任意Office应用运行。

内容的提问来源于stack exchange，提问作者SixSigmaGuy