Word VBA技术问询：如何检查当前文档是否处于激活/前台状态？

一、无需重新打开模板，二次打印时保持打印机设置的可行性 #

这个需求完全可行，现有宏仅在新建文档时触发打印机设置，可通过以下两种方式确保二次打印时设置生效：

1. 绑定打印前自动触发设置 #

在模板的ThisDocument模块中添加Document_BeforePrint事件，每次打印前自动重置打印机，避免手动操作：

Private Sub Document_BeforePrint(Cancel As Boolean)
    On Error Resume Next
    ActivePrinter = "Smart Label Printer 650"
    ' 可选：取消注释可弹出设置确认提示
    ' MsgBox "打印前已将打印机设置为: " & ActivePrinter
End Sub

这样无论首次还是二次打印，都会自动应用指定打印机设置，无需重新打开模板。

2. 添加手动触发的设置按钮 #

如果不需要每次打印都强制设置，可以创建一个自定义宏，用户在二次打印前手动点击触发：

Sub ResetPrinter()
    On Error Resume Next
    ActivePrinter = "Smart Label Printer 650"
    MsgBox "打印机已重置为: " & ActivePrinter
End Sub

之后在Word菜单栏添加该宏的快捷按钮，方便快速调用。

此外，Word文档本身会保存当前的打印机配置，只要首次设置后未手动修改打印机，二次打印时默认会沿用该设置；但如果存在误改打印机的情况，上述两种方法能确保设置强制生效。

二、检查当前文档是否激活或显示在前台 #

1. 检查文档是否处于激活状态 #

在ThisDocument模块中编写以下宏，通过对比ActiveDocument与当前文档对象判断：

Sub CheckDocumentActive()
    If ActiveDocument Is ThisDocument Then
        MsgBox "当前文档处于激活状态"
    Else
        MsgBox "当前文档未激活"
    End If
End Sub

2. 检查文档窗口是否显示在前台 #

VBA没有直接属性判断窗口是否在前台，需调用Windows API实现。步骤如下：

• 新建一个标准模块（插入→模块），声明API函数：

Declare Function GetForegroundWindow Lib "user32" () As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Const GWL_HWNDPARENT = (-8)

• 在标准模块或ThisDocument模块中编写检查宏：

Sub CheckDocumentForeground()
    Dim docWindowHwnd As Long
    docWindowHwnd = ThisDocument.ActiveWindow.hwnd
    
    If GetForegroundWindow() = docWindowHwnd Then
        MsgBox "当前文档窗口在前台显示"
    Else
        MsgBox "当前文档窗口不在前台"
    End If
End Sub

内容的提问来源于stack exchange，提问作者Ralf 2879979