Word VBA自动排版（2）-通过自动查找替换去除叠字

最新推荐文章于 2023-04-07 21:03:38 发布

Fenrir9999

最新推荐文章于 2023-04-07 21:03:38 发布

阅读量2.5k

点赞数

分类专栏： VBA编程

本文链接：https://blog.youkuaiyun.com/weixin_44559388/article/details/86585122

版权

本文介绍了如何使用Word VBA通过查找替换功能去除不同类型的叠字，如aabbcc、ababab等。代码利用通配符和自建数组，无需额外数据库，运行效率高。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

叠字主要包括以下几种：
1型aabbcc
2型ababab
3型abcabcabc
4型abcdabcdabcdabcd（这个算思考题，自己根据原理增加吧）
代码原理为通过自建数组和通配符替换逐一替换，无需引入其他数据库，运行速度还可以。
代码如下：

Sub 替换文本()
 '替换前文本
 Orit = Array("(<[!^13]*^13)(*)\1", "(<[!^13]*^13)(*)\1", "(<[!^13]*^13)(*)\1", _
    "([!1-^127]){3}", "([!1-^127]){2}", _
    "([!^13]){4}", "([!^13]){3}", "([!^13]){2}", _
    "([!^13])([!^13])\1\2{4}", "([!^13])([!^13])\1\2{3}", "([!^13])([!^13])\1\2{2}", _
    "([!^13])([!^13])([!^13])\1\3{4}", "([!^13])([!^13])([!^13])\1\3{3}", "([!^13])([!^13])([!^13])\1\3{2}")
        
    '替换后文本
    Rept = Array("\1\2", "\1\2", "\1\2", _
    "\1", "\1", _
    "\1", "\1", "\1", _
    "\1", "\1", "\1", _
    "\1", "\1&