选定区域查找替换问题

4461 · 发表于 2022-3-15 09:18

本帖最后由 4461 于 2022-3-15 09:31 编辑

在选定区域中查找“千”并通过确认是否替换提示进行替换“于”。在WORD菜单中选择-》查找和替换：查找内容为“千”，替换为：“于”，然后点击“查找下一处”进行确认是否替换，这时查找到的内容突出显示，需要替换就点击“替换”，否则点击“查找下一处”。
我想通过VBA实现这一功能，请老师们指点。谢谢。

遥控器78 · 发表于 2022-3-15 11:01

https://club.excelhome.net/threa ... tml?_dsign=c5ca0b25

4461 · 发表于 2022-3-15 12:18

遥控器78 发表于 2022-3-15 11:01
https://club.excelhome.net/thread-1084339-1-1.html?_dsign=c5ca0b25

谢谢！那个帖子没有能够解决问题的方案。

遥控器78 · 发表于 2022-3-15 15:15

4461 发表于 2022-3-15 12:18
谢谢！那个帖子没有能够解决问题的方案。

4楼的VBA可以啊

遥控器78 · 发表于 2022-3-15 15:30

4461 发表于 2022-3-15 12:18
谢谢！那个帖子没有能够解决问题的方案。

如果像你描述的那样还要确认是否替换，我觉得还是手动查找替换比较方便。

4461 · 发表于 2022-3-16 10:20

遥控器78 发表于 2022-3-15 15:30
如果像你描述的那样还要确认是否替换，我觉得还是手动查找替换比较方便。

谢谢！你说的也对，不过我想用VBA减少重复的查找和替换的文本录入。

4461 · 发表于 2022-3-16 10:31

本帖最后由 4461 于 2022-3-16 18:16 编辑

自己想办法解决吧

以木为马 · 发表于 2022-3-25 10:20

给您提供一个思路不是宏查找时候用非例如
查找：千([!年百])
替换：于\1

注意细节：千言万语查找：千([!年言百])
文中含有  千人伤亡  还有对千人类来说    人字就谨慎添加
这样其实能缩小很多范围  提高校对速度
整体是缩小错误范围的一个思路
仅供参考

413191246se · 发表于 2022-3-26 02:13

* 楼主，用 VBA 宏代码循环查找、人工确定是否替换，不能突出显示，我的代码只能让你用热键分两步完成，请严格按照下面的步骤执行：
* 解压压缩包到 D 盘根下，解压出的文件为 Find326.bas
* 打开 Word，按 Alt + F11 组合键，打开 VBE 编辑器，点击“文件”菜单，点击“导入文件……”命令，打开 find326.bas（即导入该模块，我的代码均在此模块，省事一些）。
* 关闭 VBE 编辑器。
* 按 Alt + F8 组合键，打开宏名列表，找到"a6"宏，再点击右侧“运行”按钮（或双击也可），这样，热键就定义好了。
* 打开你的文档，将光标定位在要查找的段落前面（此时，请将左手的两个手指轻轻地分别放在 F3、F4 键上面，右手持鼠标）。
* 按一下 F3 键查找你要的“千”字，再按一下 F4 键确定是否替换为你要的“于”字，用鼠标点击确定是否替换。
* 如此反复进行即可（不想查找了，就不必再按 F3、F4 键了，请自行终止！）。

*下面是代码模块压缩包（请用 5.0 版本以上的 WinRAR 来解压或用 7-Zip 也可）。

Find326.rar (490 Bytes, 下载次数: 0)

413191246se · 发表于 2022-3-26 02:16

本帖最后由 413191246se 于 2022-3-26 13:00 编辑

* 补：如果查找完毕，想消除突出显示，请全选后点击突出显示按钮，选择“无颜色”即可（默认是黄色）。* 补：按 F3 查找，按 F4 确定是否替换，……，再按 F3 查找，再按 F4 确定是否替换，……，反复如此，直到不想查找为止。

		自动登录	找回密码
密码			免费注册

[求助] 选定区域查找替换问题