ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: zhanglei1371

[原创] [分享]word批量查找替换工具

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2018-11-12 16:51 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
原代码:
Private Declare Function ChooseColorA Lib "Comdlg32" (pChoosecolor As CHOOSECOLOR) As Long

修改为:
Private Declare PtrSafe Function ChooseColorA Lib "Comdlg32" (pChoosecolor As CHOOSECOLOR) As Long
微信截图_20181112145505.png

TA的精华主题

TA的得分主题

发表于 2018-11-13 08:39 | 显示全部楼层
可以再补充上下标替换功能吗?比如H2O替换为2是下标的

TA的精华主题

TA的得分主题

发表于 2018-12-27 09:17 | 显示全部楼层
非常好的工具。大感谢了。不过确实替换不干净。比如wod表格中,很多相同的文字需要替换,他会隔一个替换。隔一个不替换。总之是替换不干净。需要多次检查、运行。希望大侠有空能够检查修订一下。再次感谢楼主,因为这个工具实在太好了。

TA的精华主题

TA的得分主题

发表于 2019-3-1 01:52 | 显示全部楼层
为什么我点击,选择文件没有反应?我用的是WPS

TA的精华主题

TA的得分主题

发表于 2019-3-20 08:35 | 显示全部楼层
非常感谢楼主的分享,非常不错的程序。
如楼上的朋友反馈的替换不完全,另外能否一起实现每一项内容替换了多少次,谢谢!

TA的精华主题

TA的得分主题

发表于 2019-9-5 05:04 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
请问老师,替换了字体颜色,能再加上文字底色么?比如变成黄颜色,这样显得更明显一些。

TA的精华主题

TA的得分主题

发表于 2019-9-5 08:19 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
谢谢分享               

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-9-6 06:36 来自手机 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
小酒鬼 发表于 2019-9-5 05:04
请问老师,替换了字体颜色,能再加上文字底色么?比如变成黄颜色,这样显得更明显一些。

里面已经附了源代码,可以自己直接修改源代码。很简单,但是很费时。尤其是需要调试时。暂时没有太多时间去进一步优化。

TA的精华主题

TA的得分主题

发表于 2019-9-8 08:33 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-11-1 09:12 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-25 15:37 , Processed in 0.035739 second(s), 7 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表