如何通过编程打开Access VBA IDE代码窗口的查找替换对话框？

当然可以实现！虽然Access本身没有自带的SendKeys功能，但我们可以借助VBE扩展性触发内置的查找替换命令，再结合WinAPI来调整对话框的位置。下面是具体的实现步骤和代码：

一、触发VBA IDE的查找替换对话框 #

Access的VBE（Visual Basic编辑器）支持通过CommandBars执行内置命令。我们可以直接调用对应命令ID来打开查找替换窗口：

Sub OpenFindReplaceDialog()
    ' 触发VBE内置的"查找和替换"命令
    Application.VBE.CommandBars.FindControl(ID:=1849).Execute
End Sub

这里的ID:=1849是VBE通用的查找替换命令ID，中文/英文环境下都能正常生效。

二、用WinAPI调整对话框位置 #

因为对话框默认会固定在屏幕左上角，我们可以通过FindWindow获取它的句柄，再用SetWindowPos移动到你想要的位置。先声明需要用到的WinAPI函数：

' 声明WinAPI函数（适配64位/32位Access）
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private 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
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

' 常量定义
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOZORDER = &H4
Private Const HWND_TOP = 0

Sub OpenAndPositionFindReplaceDialog()
    ' 1. 打开查找替换对话框
    Application.VBE.CommandBars.FindControl(ID:=1849).Execute
    
    ' 等待对话框加载完成（可根据电脑性能调整毫秒数）
    Sleep 200
    
    ' 2. 查找对话框句柄（中文环境标题为"查找和替换"，英文环境替换为"Find and Replace"）
    Dim hDlg As LongPtr
    hDlg = FindWindow("#32770", "查找和替换")
    
    ' 3. 移动对话框到指定位置（示例：x=600, y=250，可按需修改坐标）
    If hDlg <> 0 Then
        SetWindowPos hDlg, HWND_TOP, 600, 250, 0, 0, SWP_NOSIZE Or SWP_NOZORDER
    End If
End Sub

关键细节说明 #

• FindWindow中的#32770是Windows标准对话框的通用类名，所有系统级对话框都会使用这个标识。
• Sleep函数是为了给对话框留出加载时间，避免还未弹出就去查找句柄导致失败，你可以根据自己的设备运行速度调整这个数值。
• SetWindowPos的SWP_NOSIZE和SWP_NOZORDER参数表示只调整窗口位置，不改变窗口大小和层级，保证对话框状态和默认一致。

把上述代码放到Access的标准模块中，运行OpenAndPositionFindReplaceDialog就能直接打开并定位好查找替换对话框，完美适配你超宽屏的使用需求~

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