Question

VBA如何调出word和excel查找/替换对话框

如题，请问是什么命令或代码。

Answer 1

VBA中，可以利用下面的语句来调用Excel内置对话框：

Application.Dialogs(代码).Show

其中代码与对话框名称对应表如下：

代码 窗口名称 代码 窗口名称 代码 窗口名称 代码 窗口名称 代码 窗口名称
1 打开 54 删除单元格 190 字体 320 选项-视图 496 标签区域
2 编辑链接 55 插入 191 合并计算 321 加载宏 509 工作表背景
5 另存为 61 定义名称 192 排序 323 附加工具栏 525 数据有效性
6 删除文档 62 指定名称 198 单变量求解 342 插入图片 583 条件格式
7 页面设置 63 定位 199 编辑成组工作表 354 插入 596 插入超链接
8 打印内容 64 查找 203 创建组 355 选项-123的帮助 620 保护共享工作簿
9 打印机设置 84 单元格格式-图案 212 样式 356 选项-常规 647 选项-国际
12 重排窗口 91 分列 220 自定义 370 高级筛选 653 发布为网页
17 宏 94 取消隐藏 222 打印预览 381 单元格格式-字体 656 拼音属性
23 设置打印标题 95 工作区选项 229 样式 384 取消隐藏 666 导入文本文件
26 字体 103 激活 256 显示比例 386 重命名工作表 667 新建-Web_查询
27 显示选项 108 复制图片 259 对象 415 分类汇总 674 Web-选项-常规
28 保护工作表 110 定义名称 269 自动套用格式 417 保护工作簿 683 Web-选项-浏览器
32 重算选项 111 单元格格式-数字 276 自定义 447 自动筛选 684 Web-选项-文件
39 排序 119 新建 281 移动或复制工作表 450 插入函数 685 Web-选项-图片
40 序列 127 行高 282 移动或复制工作表 458 选项-自定义序列 686 Web-选项-编码
41 模拟运算表 130 替换 283 移动或复制工作表 472 标准列宽 687 Web-选项-字体
42 单元格格式-数字 132 定位条件 284 重命名工作表 473 合并方案 709 公式求值
43 单元格格式-对齐 134 字体 285 保存工作区 474 工作簿属性 731 基本文件搜索
44 字体 137 拆分 302 插入 475 打开 753 选项-保存
45 单元格格式-边框 142 设置 305 方案管理器 476 单元格格式-字体 755 选项-拼写检查
46 单元格格式-保护 145 另存为 307 添加方案 481 共享工作簿 771 符号
47 列宽 150 字体 312 数据透视表和数据透视图向导 485 自动更正 773 Web-选项-浏览器
52 清除 154 插入批注 318 选项-重新计算 493 视图管理器 796 创建列表
53 选择性粘贴 161 选项-颜色 319 选项-编辑 494 添加视图 817 信息检索

Answer 2

Word VBA 里面
Sub WordRepDia()
Application.Dialogs(wdDialogEditReplace).Show
End Sub

Excel VBA 里面
Sub ExcelRepDia()
Application.Dialogs(64).Show
End Sub