如何在VBA中设置Word的wdDialogFileOpen对话框标题？

Word的wdDialogFileOpen属于内置标准对话框，微软并未为其开放Title属性，所以直接通过对象属性修改标题的思路行不通。这里提供两种可行的解决方案：

方法一：使用Office FileDialog替代（推荐） #

Office原生的FileDialog对象支持直接设置标题，功能和内置打开对话框对齐，实现起来更简洁：

Sub CustomOpenDialog()
    Dim dlgOpen As FileDialog
    Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
    
    With dlgOpen
        .Title = "Choose a document to work with" ' 设置自定义标题
        .InitialFileName = "C:\" ' 设置默认路径
        .Filters.Clear ' 清除默认筛选器（可选操作）
        .Filters.Add "Word Documents", "*.docx;*.doc" ' 添加指定格式筛选器
        If .Show = -1 Then ' 用户点击确定按钮
            ' 处理选中的文件，示例：打开第一个选中的文档
            Documents.Open .SelectedItems(1)
        End If
    End With
    
    Set dlgOpen = Nothing
End Sub

这种方案无需依赖系统API，兼容性更好，还能自定义筛选规则、支持多选等扩展功能，是优先推荐的实现方式。

方法二：通过Windows API钩子修改内置对话框标题 #

如果必须使用wdDialogFileOpen对话框，可以通过Windows API拦截对话框的创建消息来修改标题。需要注意的是，API调用在不同Word版本和系统环境下可能存在兼容性差异，使用前请充分测试：

Option Explicit

Private Declare PtrSafe Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As LongPtr, ByVal lpString As String) As Long
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr
Private Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr) As Long

Private TimerID As LongPtr
Private TargetTitle As String

Sub OpenCustomTitleDialog()
    TargetTitle = "Choose a document to work with"
    ' 设置定时器，每隔50毫秒检查对话框是否加载完成
    TimerID = SetTimer(0, 0, 50, AddressOf TimerProc)
    
    With Dialogs(wdDialogFileOpen)
        .Name = "C:\"
        .Show
    End With
    
    ' 对话框关闭后销毁定时器
    KillTimer 0, TimerID
End Sub

Private Sub TimerProc(ByVal hwnd As LongPtr, ByVal uMsg As Long, ByVal idEvent As LongPtr, ByVal dwTime As Long)
    Dim dlgHwnd As LongPtr
    ' 查找默认标题为"Open Document"的对话框窗口
    dlgHwnd = FindWindow("#32770", "Open Document")
    
    If dlgHwnd <> 0 Then
        ' 修改对话框标题为自定义文本
        SetWindowText dlgHwnd, TargetTitle
        ' 完成修改后立即关闭定时器
        KillTimer 0, TimerID
    End If
End Sub

注意事项： #

• 64位Office需保留PtrSafe声明和LongPtr类型，32位版本可替换为Long并去掉PtrSafe。
• 定时器间隔可根据实际情况调整，确保能在对话框显示后及时触发标题修改。

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