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

Word自身不具备“窗口前端显示”功能。但可以通过下载、安装“窗口前端显示功能”软件来实现这一点。

相关的软件，比如：DeskPins、V0.0.0.1等都非常小（只有几百K），下载、安装、使用都很方便，可以试一下。

以下以V0.0.0.1为例：下载、安装好了之后，打开该软件，在打开的窗口中，点击“选择窗口”按钮，然后选择一个希望放在最上面的窗口，即可实现指定窗口置顶的功能。

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