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

/**
 * 批量搜索替换-https://www.dzw6.com/31615.html
 * 宏由 地质网编写，时间: 2025/01/13
 * 替换的顺序就是下面设置的关键词顺序，所以注意别重复替换了
 * 有多少就写多少，注意格式
 */
function Macro1()
{
}
function Macro2()
{
    const replacements = [
        ["原词", "替换词"],
        ["原词1", "替换词1"],
        ["原词100", "替换词100"],
    ];
    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);
    });
}

3.4.9 3.4.7
3.4.10 3.4.8
3.4.11 3.4.9