R Markdown编织输出Word时如何全局调整代码块字体大小

以下三种方案均可实现全局统一设置所有代码块字号为10pt，无需手动逐个修改带Tok后缀的Word样式：

方案1：VBA批量修改模板样式（适配现有自定义模板工作流） #

适合已经在使用reference_docx模板的场景，只需一次运行脚本完成所有相关样式修改：

1. 打开你已生成的word_template1.docx模板文件
2. 按Alt+F11打开VBA编辑器，右键点击当前文档选择「插入」-「模块」
3. 粘贴如下代码后点击运行按钮：

Sub 统一设置代码块字号()
    Dim s As Style
    For Each s In ActiveDocument.Styles
        ' 匹配所有Tok后缀的代码高亮样式、源代码块样式、行内代码样式
        If Right(s.NameLocal, 3) = "Tok" Or s.NameLocal = "Source Code" Or s.NameLocal = "Verbatim Char" Then
            s.Font.Size = 10
            ' 如需统一设置代码字体，取消注释下一行即可
            ' s.Font.Name = "Consolas"
        End If
    Next
    ActiveDocument.Save
End Sub

4. 保存修改后的模板，后续所有引用该模板的Rmd文档输出的代码块都会自动应用10pt字号，需调整字号时只需修改脚本中的数值重新运行即可。

方案2：Pandoc Lua过滤器（无额外包依赖，全局通用） #

一次编写过滤器，所有项目均可复用，无需依赖R包或修改Word模板：

1. 在Rmd文件同级目录新建code-size.lua文件，写入以下内容：

-- 统一所有代码高亮样式为源代码样式
function Span(el)
  if el.classes:find("Tok") then
    el.attributes['custom-style'] = "Source Code"
    return el
  end
end

-- 设置代码块样式
function CodeBlock(el)
  el.attributes['custom-style'] = "Source Code"
  return el
end

2. 修改Rmd的YAML头部，添加过滤器引用：

output:
  word_document:
    pandoc_args: ["--lua-filter", "code-size.lua"]

3. 首次使用时只需编织一次文档，打开生成的Word修改「Source Code」样式的字号为10pt，保存为模板后所有引用该模板和过滤器的文档都会自动应用统一的代码样式，后续调整字号只需修改「Source Code」样式一次即可。

方案3：officedown包原生配置（最简配置方案） #

使用officedown扩展包可直接在YAML中配置代码块样式，无需操作Word：

1. 安装依赖包：install.packages("officedown")
2. 修改Rmd的YAML输出配置：

output:
  officedown::rdocx_document:
    styles:
      code:
        size: 10
        font.family: "Consolas"

编织后所有代码块自动应用10pt字号，无需任何额外操作。

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