Word VBA：UserForm后台运行时任务栏无图标问题求代码方案

要让无模式UserForm在Word应用隐藏时显示任务栏图标，需通过Windows API修改UserForm的窗口扩展样式，使其成为独立的任务栏条目。以下是具体实现代码及说明：

UserForm1模块完整代码 #

打开UserForm1的代码编辑器，替换原有内容为以下代码：

' 兼容32位/64位Office的API声明
#If VBA7 Then
    Private Declare PtrSafe Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
    Private Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
#Else
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If

Private Const GWL_EXSTYLE = -20
Private Const WS_EX_APPWINDOW = &H40000
Private Const WS_EX_TOOLWINDOW = &H80

Private Sub UserForm_Initialize()
    Dim hWndForm As LongPtr
    Dim exStyle As LongPtr
    
    ' 获取UserForm的窗口句柄
    hWndForm = FindWindow("ThunderDFrame", Me.Caption)
    
    If hWndForm <> 0 Then
        ' 调整窗口扩展样式：添加任务栏显示属性，移除工具窗口属性
        exStyle = GetWindowLongPtr(hWndForm, GWL_EXSTYLE)
        exStyle = exStyle Or WS_EX_APPWINDOW
        exStyle = exStyle And Not WS_EX_TOOLWINDOW
        SetWindowLongPtr(hWndForm, GWL_EXSTYLE, exStyle)
    End If
End Sub

Private Sub CommandButton1_Click()
    UserForm1.Hide
    Application.Visible = True
End Sub    

Private Sub UserForm_Terminate()
    ThisDocument.Save
    ThisDocument.Close
    Application.Quit ' 确保Word进程完全退出
End Sub

文档模块代码保持不变 #

你的原有文档模块代码无需修改：

Sub AutoOpen()
    Application.Visible = False
    UserForm1.Hide
    UserForm1.Show vbModeless
End Sub

代码说明 #

• 通过FindWindow定位UserForm的窗口句柄，ThunderDFrame是VBA UserForm的默认窗口类名
• 修改窗口扩展样式后，UserForm会拥有独立的任务栏条目，不受Word主窗口隐藏状态影响
• 优化了UserForm_Terminate事件，添加Application.Quit避免Word进程残留后台

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