用 WPS JSA 宏实现参考文献自动超链接：支持多引用格式 [1, 2-3]

一句话总结：通过 WPS 的 JavaScript for Application（JSA）宏，自动为 Word 文档中的参考文献添加书签，并将正文中的上标引用（如 [1]、[1, 2]、[3–5]）转换为可点击的超链接。

在学术写作中，我们经常需要在正文中插入上标引用（如 [1]），并在文末列出对应的参考文献。理想情况下，点击 [1] 应能跳转到对应的参考文献条目——这在 Word 中可通过“书签 + 超链接”实现。

但手动操作极其繁琐，尤其当引用数量多、格式复杂（如 [1, 2, 4–6]）时。好消息是：WPS Office 支持 JSA（JavaScript for Application）宏，我们可以用它自动化整个流程！

本文将带你一步步实现一个功能完整的宏：自动识别参考文献区域 → 为每条文献打书签 → 扫描正文中的多引用格式 → 为每个数字单独添加超链接。

🧩 功能亮点

✅ 自动定位“参考文献”区域（支持标题或连续编号段落）
✅ 同时兼容手动编号（如 [1] 张三…）和自动编号列表
✅ 支持复杂引用格式：[1]、[1, 2]、[3–5]、[1, 3, 5–7]
✅ 保留原文格式：不破坏上标、字体颜色、下划线等
✅ 高性能：关闭屏幕刷新，避免卡顿

📜 完整代码（WPS JSA）见文末附录
🔍 核心逻辑解析

1️⃣ 如何定位“参考文献”区域？

采用双重策略：
策略一：查找以“参考文献”“References”等开头的段落（忽略大小写）
策略二：从文档末尾向前扫描，寻找连续两个以上形如 [1]、[2] 的段落

这样即使没有标题，也能智能识别。

2️⃣ 如何处理 [1, 2–3] 这类复杂引用？

关键在于 ProcessMultiCitation 函数：
不直接替换整个 [1, 2]，而是在其中逐个提取数字
使用 Word 的通配符 精准匹配独立数字（避免误匹配年份如 2023）
从右向左添加超链接，防止左侧插入导致右侧位置偏移
保留原始格式：恢复上标、字体颜色，且不加下划线（学术文档通常不要求）

3️⃣ 为什么用 JSA 而不是 VBA？

WPS 在 Windows 上同时支持 VBA 和 JSA
JSA 基于 JavaScript，语法更现代，对 Web 开发者友好
本文代码已在 WPS Office 2024（最新版） 测试通过

⚠️ 注意事项

仅处理上标引用：宏会过滤非上标的 [1]（如正文中的普通括号）
书签命名规则：ref_1, ref_2 … 若文献编号重复，后出现的会覆盖前者
连字符支持：自动识别 -、–（en dash）、—（em dash）作为范围分隔符
性能优化：大文档处理时关闭 ScreenUpdating，避免界面卡死

🛠️ 使用方法

打开 WPS Word 文档
按 Alt + F11 打开宏编辑器
新建一个 JSA 宏模块，粘贴上述代码
运行 AddCitationHyperlinks_Multi_JS
等待提示“处理完成”，点击任意引用即可跳转！

💡 结语

这个宏不仅解决了学术写作中的实际痛点，也展示了 WPS JSA 的强大能力——它不再是 Excel 专属，而是可以深度操控 Word 文档的利器。

未来还可扩展：
支持 cite{} LaTeX 风格引用
自动生成参考文献编号
双向链接（从文献跳回正文）

开源精神：如果你改进了这段代码，欢迎分享！让中文科研工作者少一点重复劳动，多一点创造力。

📎 附录：完整代码

/**
 * WPS JSA 宏：自动为参考文献添加书签，并为正文中的上标引用（支持 [1, 2] 多引用）添加超链接
 */
function AddCitationHyperlinks_Multi_JS() {
    let doc = ActiveDocument;

    // === 性能优化：关闭屏幕更新 ===
    Application.ScreenUpdating = false;
    
    // === 第一步：定位参考文献区域 ===
    let refStartParaIndex = FindBibliographyByHeading(doc);

    if (refStartParaIndex == 0) {
        refStartParaIndex = FindBibliographyByConsecutiveCitations(doc);
    }

    if (refStartParaIndex == 0) {
        Application.ScreenUpdating = true;
        MsgBox("无法定位参考文献区域。\n请确保文档包含“参考文献”标题或文末有连续的 [1]、[2] 段落。");
        return;
    }

    // === 第二步：为参考文献条目添加书签 ===
    // Application.StatusBar = "正在处理参考文献书签..."; // JSA 中 StatusBar 可能不完全支持，视版本而定

    // 获取文档总段落数
    let paraCount = doc.Paragraphs.Count;
    
    // 遍历参考文献区域
    for (let i = refStartParaIndex; i <= paraCount; i++) {
        let para = doc.Paragraphs.Item(i);
        let text = para.Range.Text.trim();
        let listString = para.Range.ListFormat.ListString ? para.Range.ListFormat.ListString.trim() : "";
        
        let numStr = null;

        // 1. 尝试从文本内容匹配 [1] (手动编号)
        let textMatch = text.match(/^\[(\d+)\]/);
        if (textMatch) {
            numStr = parseInt(textMatch[1]).toString();
        }
        // 2. 尝试从自动编号匹配 [1] (自动编号)
        else if (listString) {
            let listMatch = listString.match(/^\[(\d+)\]/);
            if (listMatch) {
                numStr = parseInt(listMatch[1]).toString();
            }
        }

        if (numStr) {
            let bookmarkName = "ref_" + numStr;
            
            // 删除旧书签
            if (doc.Bookmarks.Exists(bookmarkName)) {
                doc.Bookmarks.Item(bookmarkName).Delete();
            }
            
            // 添加新书签
            doc.Bookmarks.Add(bookmarkName, para.Range.Characters.Item(1));
        }
    }

    // === 第三步：处理正文中的多引用 ===
    // 搜索范围：从文档开头到参考文献标题前
    let searchRange = doc.Range(0, doc.Paragraphs.Item(refStartParaIndex).Range.Start);
    let hyperlinkCount = 0;

    let findObj = searchRange.Find;
    findObj.ClearFormatting();
    // Word 通配符查找：[ 后面跟非 ] 字符，最后是 ]
    // 注意：JSA 字符串中反斜杠需要转义，所以是 \\
    findObj.Text = "\\[[!\\]]{1,}\\]"; 
    findObj.MatchWildcards = true;
    findObj.Forward = true;
    findObj.Wrap = wdFindStop;
    findObj.Format = true;
    findObj.Font.Superscript = true; // 仅查找上标

    while (findObj.Execute()) {
        // 再次确认范围（防止越界）
        if (searchRange.Start >= doc.Paragraphs.Item(refStartParaIndex).Range.Start) break;

        // 获取括号内的文本（去掉首尾）
        let fullText = searchRange.Text;
        let innerText = fullText.slice(1, -1);

        // 验证内容是否合法（只包含数字、逗号、横线、空格）
        if (IsCitationContent(innerText)) {
            // 解析并为每个数字单独添加链接
            ProcessMultiCitation(searchRange, doc);
            hyperlinkCount++;
        }

        searchRange.Collapse(wdCollapseEnd);
    }

    // === 恢复环境 ===
    Application.ScreenUpdating = true;
    MsgBox("处理完成！已扫描并处理引用区域。\n共处理了 " + hyperlinkCount + " 处引用。");
}

// === 核心逻辑：解析 [1, 2-3] 并分别添加链接 ===
function ProcessMultiCitation(rng, doc) {
    let originalText = rng.Text; // e.g., "[1, 2]"
    let bookmarkPrefix = "ref_";
    
    // Step 1: 获取当前上标状态
    let wasSuperscript = rng.Font.Superscript;
    // 修改：不再移除上标，直接查找，避免后续恢复时范围出错导致部分字符未恢复上标
    // rng.Font.Superscript = false; 

    // Step 2: 在这个小范围内查找所有连续数字
    let localRange = rng.Duplicate; // 创建副本，避免污染原范围
    let findObj = localRange.Find;
    findObj.ClearFormatting();
    findObj.Text = "<[0-9]{1,}>"; // Word 通配符：匹配完整数字
    findObj.MatchWildcards = true;
    findObj.Forward = true;
    findObj.Wrap = wdFindStop;

    let foundNumbers = [];

    // 先收集所有数字及其位置（避免边找边改）
    while (findObj.Execute()) {
        // 严格检查：找到的内容必须完全在 rng 范围内
        // 注意：Word 的 Find 在 Range 塌缩后可能会继续向后搜索整个文档
        if (localRange.Start >= rng.End || localRange.End > rng.End) {
            break;
        }

        let numText = localRange.Text;
        let absStart = localRange.Start;
        let absEnd = localRange.End;
        
        // 再次确认是数字（双重保险）
        if (/\d+/.test(numText)) {
            foundNumbers.push({ num: numText, start: absStart, end: absEnd });
        }
        
        localRange.Collapse(wdCollapseEnd);
    }

    // Step 3: 从右到左为每个数字加超链接（避免位置漂移）
    for (let i = foundNumbers.length - 1; i >= 0; i--) {
        let item = foundNumbers[i];
        // 同样处理数字格式，确保匹配
        let numStr = parseInt(item.num).toString();
        let bmName = bookmarkPrefix + numStr;
        
        if (!doc.Bookmarks.Exists(bmName)) continue;

        let subRng = doc.Range(item.start, item.end);
        if (subRng.Hyperlinks.Count > 0) continue;

        // 保存原有颜色，以便后续恢复（避免强制变黑）
        let originalColor = subRng.Font.Color;

        let hl = doc.Hyperlinks.Add(subRng, undefined, bmName);
        hl.Range.Font.Underline = 0; // 无下划线
        hl.Range.Font.Superscript = wasSuperscript; // 恢复上标
        hl.Range.Font.Color = originalColor; // 恢复原色
    }
}

// === 辅助：验证括号内是否像引用 ===
function IsCitationContent(text) {
    // 移除允许的字符：空格, 逗号, 连字符, En-dash, Em-dash
    let temp = text.replace(/[ ,-\u2013\u2014]/g, "");
    // 移除数字
    temp = temp.replace(/\d/g, "");
    
    // 如果移除后为空，且原文本包含数字，则合法
    return temp.length == 0 && text.length > 0 && /\d/.test(text);
}

// === 辅助函数 1：通过标题查找 ===
function FindBibliographyByHeading(doc) {
    let headings = ["参考文献", "REFERENCES", "References", "BIBLIOGRAPHY"];
    let count = doc.Paragraphs.Count;
    
    // 倒序查找
    for (let i = count; i >= 1; i--) {
        let para = doc.Paragraphs.Item(i);
        // 清理文本：去除回车符等
        let txt = para.Range.Text.replace(/[\r\x07]/g, "").trim();
        
        if (txt.length > 0 && txt.length < 50) {
            let txtUpper = txt.toUpperCase();
            for (let h of headings) {
                if (txtUpper.startsWith(h.toUpperCase())) {
                    return i + 1;
                }
            }
        }
    }
    return 0;
}

// === 辅助函数 2：通过连续 [n] 查找 ===
function FindBibliographyByConsecutiveCitations(doc) {
    let consecutiveCount = 0;
    let firstValidIndex = 0;
    let count = doc.Paragraphs.Count;
    
    for (let i = count; i >= 1; i--) {
        let para = doc.Paragraphs.Item(i);
        let txt = para.Range.Text.trim();
        let listString = para.Range.ListFormat.ListString ? para.Range.ListFormat.ListString.trim() : "";
        
        let isRef = false;

        // 检查是否像 [n] (手动编号)
        // 逻辑：长度>2，以[开头，第二个字符是数字
        if (txt.length > 2 && txt.startsWith("[") && /^\d/.test(txt.substr(1))) {
            isRef = true;
        } 
        // 检查自动编号是否像 [n] (自动编号)
        else if (listString.length > 0 && listString.startsWith("[") && /^\d/.test(listString.substr(1))) {
            isRef = true;
        }

        if (isRef) {
            consecutiveCount++;
            firstValidIndex = i;
        } else {
            if (consecutiveCount >= 2) {
                return firstValidIndex;
            }
            consecutiveCount = 0;
        }
    }
    
    return (consecutiveCount >= 2) ? firstValidIndex : 0;
}