vba word -在系统上查找应用程序并启动它

Sub LaunchApplication()
    Dim appPath As String
    Dim appName As String
    
    ' 应用程序的路径和文件名
    appPath = "C:\Program Files\ExampleApp\ExampleApp.exe"
    
    ' 应用程序的名称
    appName = "ExampleApp"
    
    ' 使用Shell函数启动应用程序
    Shell appPath, vbNormalFocus
    
    ' 等待应用程序启动
    Do While Not AppIsRunning(appName)
        DoEvents
    Loop
    
    ' 应用程序已启动，可以进行进一步处理
    
End Sub

Function AppIsRunning(appName As String) As Boolean
    Dim objShell As Object
    Dim objWMI As Object
    Dim objProcess As Object
    Dim colProcesses As Object
    
    Set objShell = CreateObject("WScript.Shell")
    Set objWMI = GetObject("winmgmts:")
    Set colProcesses = objWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name='" & appName & "'")
    
    AppIsRunning = (colProcesses.Count > 0)
    
    Set colProcesses = Nothing
    Set objWMI = Nothing
    Set objShell = Nothing
End Function