VBA - 检测是否安装了应用程序以使用它

使用VBA可以轻松检测是否安装了特定的应用程序，并根据其是否安装了来执行相应的操作。这对于需要与其他应用程序进行交互的VBA项目非常有用。本文将介绍如何使用VBA检测应用程序是否安装，并提供一个案例代码来说明其实际应用。

VBA
Sub CheckWordInstalled()
    Dim wordPath As String
    
    wordPath = Shell("which -a winword.exe", vbHide)
    
    If wordPath = "" Then
        MsgBox "Microsoft Word未安装！"
    Else
        MsgBox "Microsoft Word已安装，路径为：" & wordPath
    End If
End Sub

VBA
Sub CheckAdobeReaderInstalled()
    Dim readerPath As String
    
    readerPath = Shell("which -a AcroRd32.exe", vbHide)
    
    If readerPath = "" Then
        MsgBox "Adobe Acrobat Reader未安装！"
    Else
        MsgBox "Adobe Acrobat Reader已安装，路径为：" & readerPath
    End If
End Sub