如何用api在excel与word应用程序之间切换？

在使用代码操作Excel与Word应用程序的交互时，需要处理激活Word应用程序后再返回到Excel应用程序的操作，或者相反的操作，这时候可以用api函数来实现这个目的。

如下所示为在Excel中用Api函数将Word应用程序激活的例子。

'获取顶级窗口的句柄
'https://msdn.microsoft.com/en-us/library/windows/desktop/ms633499(v=vs.85).aspx
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'将某个顶级窗口切换到最前端，并激活
'https://msdn.microsoft.com/en-us/library/windows/desktop/ms632673(v=vs.85).aspx
Public Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long
Sub QQ1722187970()
    Dim lHwnd1
    Dim lHwnd2
    lHwnd1 = Excel.Application.hwnd
    'OpusApp为Word应用程序的类名
    lHwnd2 = FindWindow("OpusApp", "")
    BringWindowToTop lHwnd2
End Sub