WPS文字宏脚本实现多个关键词批量搜索替换

老白博客源码分享：在日常的文档处理工作中，老白博客经常会遇到需要对文档中的大量文本进行批量替换的情况。手动逐个查找并替换不仅耗时费力，还容易出错。通过编写宏代码，可以一次性完成多个文本的替换操作。详细的脚本代码如下；

1.WPS添加宏脚本

按下Alt + F11快捷键打开VBA编辑器。

在VBA编辑器中，插入一个新的模块。

在模块中输入以下代码：

/**
 * 批量搜索替换-https://www.xcbtmw.com/31615.html
 * 宏由 老白博客编写，时间: 2025/01/13
 */
function Macro1()
{
}
function Macro2()
{
    const replacements = [
        ["3.4.9", "3.4.7"],
        ["3.4.10", "3.4.8"],
        ["3.4.11", "3.4.9"],
        ["3.4.13", "3.4.10"],
        ["3.4.14", "3.4.11"],
        ["3.4.15", "3.4.12"],
        ["3.4.40", "3.4.35"],
        ["3.4.42", "3.4.36"],
        ["3.4.43", "3.4.37"],
        ["3.4.44", "3.4.38"]
    ];

    replacements.forEach(replacement => {
        Selection.SetRange(0, 0);
        Selection.Find.Wrap = wdFindContinue;
        (obj=>{
            obj.Text = replacement[0];
            obj.Forward = true;
            obj.Wrap = wdFindContinue;
            obj.MatchCase = false;
            obj.MatchByte = true;
            obj.MatchWildcards = false;
            obj.MatchWholeWord = false;
            obj.MatchFuzzy = false;
            obj.Replacement.Text = replacement[1];
        })(Selection.Find);
        (obj=>{
            obj.Style = "";
            obj.Highlight = wdUndefined;
            (obj=>{
                obj.Style = "";
                obj.Highlight = wdUndefined;
            })(obj.Replacement);
        })(Selection.Find);
        Selection.Find.Execute(undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, wdReplaceAll, undefined, undefined, undefined, undefined);
    });
}