如何让word窗口置顶

1.如何让word永远在显示器最上面一层

word本身不支持该功能

设置窗口为顶层表单需要使用API，但是在模块里试了半天也无法实现，可能不支持了。测试代码如下：

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Declare Function SetWindowPos Lib "user32" (HWND&, ord&, x&, y&, dx&, dy&, uflag&) As Long

Public Sub TopWindow()

Dim myHwnd As Long

myHwnd = FindWindow(vbNullString, ActiveDocument.ActiveWindow.Caption & " - Microsoft Word")

Const HWND_TOP = -1

Const SWP_NOMOVE = 3

SetWindowPos myHwnd, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE

End Sub