求助：用VBA实现MS Word窗口始终置顶（原Excel可用代码报错）

以下是可直接在Word中运行的VBA代码，能实现窗口置顶功能，无需额外软件：

Declare PtrSafe Function SetWindowPos Lib "user32" _
    (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, _
    ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
    ByVal cy As Long, ByVal wFlags As Long) As Long

' 置顶窗口的常量定义
Const HWND_TOPMOST = -1
Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1

Sub ToggleWordTopmost()
    Dim hwnd As LongPtr
    hwnd = Application.ActiveWindow.hwnd ' 获取当前活动Word窗口的句柄
    
    ' 切换置顶状态：当前为置顶则取消，否则设置为置顶
    If SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE) = 0 Then
        SetWindowPos hwnd, -2, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
    End If
End Sub

错误原因说明 #

你之前遇到的编译错误，核心是Excel和Word对象模型的差异：

• Word中必须通过Application.ActiveWindow来引用窗口对象，直接写Window.Hwnd会找不到对应的成员；
• 64位Office环境下，API声明必须加上PtrSafe关键字，否则会出现兼容性报错。

操作步骤 #

1. 打开目标Word文档，按下Alt + F11打开VBA编辑器；
2. 在左侧「工程」窗口右键点击当前文档名称，选择「插入」→「模块」；
3. 将上述代码粘贴到新建模块中；
4. 返回Word界面，按下Alt + F8打开宏对话框，选中ToggleWordTopmost点击「运行」即可。
   • 若需频繁使用，可将该宏添加到快速访问工具栏：右键点击工具栏→「自定义快速访问工具栏」，在命令列表中选「宏」，找到对应宏添加即可。

内容的提问来源于stack exchange，提问作者Kazuto Kirigaya