如何在Quarto/RMarkdown生成的Word文档中添加引用域代码？

方法一：用Pandoc Lua过滤器直接生成域代码 #

Quarto底层依赖Pandoc，可通过自定义Lua过滤器修改引用输出逻辑，将纯文本引用替换为Word支持的域代码。

1. 创建Lua过滤器文件（命名为word-citation-filter.lua），写入以下代码：

-- 处理文内引用，生成CITATION域
function Cite(cite)
  local citation_spans = {}
  for _, cit in ipairs(cite.citations) do
    -- 生成Word CITATION域代码，编码为openxml格式
    local cite_field = string.format("{ CITATION %q \\l 1033 }", cit.id)
    table.insert(citation_spans, pandoc.RawInline("openxml", cite_field))
    -- 添加引用间分隔符（根据你的引用样式调整）
    if _ < #cite.citations then
      table.insert(citation_spans, pandoc.Str(", "))
    end
  end
  return pandoc.Span(citation_spans)
end

-- 处理参考文献列表，为每个条目添加REF域（可选）
function Div(div)
  if div.classes:includes("refs") then
    local updated_content = {}
    for _, elem in ipairs(div.content) do
      if elem.t == "Para" and elem.content[1].attr and elem.content[1].attr.identifier then
        local ref_id = elem.content[1].attr.identifier
        -- 生成REF域用于交叉引用
        local ref_field = string.format("{ REF %s \\h }", ref_id)
        table.insert(updated_content, pandoc.RawInline("openxml", ref_field))
        table.insert(updated_content, elem)
      else
        table.insert(updated_content, elem)
      end
    end
    div.content = updated_content
    return div
  end
end

2. 在Quarto文档的YAML头部声明使用该过滤器：

---
title: "你的文档标题"
bibliography: references.bib
filters: [word-citation-filter.lua]
format: docx
---

3. 正常编译Quarto文档，生成的Word文件中文内引用会以CITATION域代码形式存在。

方法二：用R的officer包后处理Word文档 #

如果Lua过滤器过于复杂，可先生成纯文本引用的Word文档，再用officer包批量替换为域代码。

1. 先编译RMarkdown/Quarto文档得到基础Word文件（比如raw-output.docx）。
2. 运行以下R代码替换引用：

library(officer)
library(stringr)

# 加载文档
doc <- read_docx("raw-output.docx")

# 替换文内引用（假设你的引用格式是[1], [2]...）
doc <- doc %>%
  body_replace_text_all(
    pattern = "\\[(\\d+)\\]",
    replacement = function(match) {
      # 提取引用编号，映射到对应的文献key（需根据你的参考文献调整映射关系）
      ref_key <- paste0("ref", match)
      # 生成CITATION域代码
      field_xml <- sprintf("<w:fldSimple w:instr=\"CITATION %s \\l 1033\"/>", ref_key)
      run_word_field(xml = field_xml)
    }
  )

# 保存处理后的文档
print(doc, target = "final-output-with-fields.docx")

注意事项 #

• Lua过滤器需要匹配你的引用样式（比如作者年份制、数字编号制），可能需要调整代码中的域格式。
• officer方法需要你建立引用编号和文献key的映射关系，可从生成的参考文献列表中提取对应信息。
• 目前Quarto/RMarkdown官方未提供直接生成Word域代码的内置选项，以上均为变通方案。

内容的提问来源于stack exchange，提问作者MikeS