如何在R Markdown生成Word文档时替换默认标题样式为自定义样式？

下面提供三种可行方案，按需选择：

方案一：用Pandoc Lua过滤器（推荐） #

这是Pandoc官方推荐的方式，直接在生成Word文档时替换标题样式，无需后续修改。

1. 新建一个名为heading-style.lua的文件，写入以下代码：

function Header(el)
  local level = el.level
  -- 替换为你的自定义样式名
  local new_style = "Custom Headline " .. level
  el.attributes["custom-style"] = new_style
  return el
end

2. 在你的Bookdown项目YAML头部，添加过滤器参数：

output:
  bookdown::word_document2:
    reference_docx: "你的自定义模板.docx"
    pandoc_args: ["--lua-filter=heading-style.lua"]

生成文档时，所有默认的Heading x标题都会自动应用Custom Headline x样式。

方案二：用R的pandocfilters包 #

如果你更倾向于用R代码实现，可以借助pandocfilters编写过滤器：

1. 在R脚本中定义过滤器函数：

library(pandocfilters)

change_heading_style <- function(key, value, format, meta) {
  if (key == "Header") {
    level <- value[[1]]
    style_name <- paste0("Custom Headline ", level)
    value[[3]]$`custom-style` <- style_name
    return(Header(value[[1]], value[[2]], value[[3]], value[[4]]))
  }
}

2. 在YAML中引用这个过滤器：

output:
  bookdown::word_document2:
    reference_docx: "你的自定义模板.docx"
    pandoc_args: !expr pandocfilters::pandoc_filter_args(change_heading_style)

方案三：生成Word后批量修改样式 #

如果不想修改生成流程，可以用officer包在生成后批量重命名样式：

library(officer)

# 读取生成的Word文档
doc <- read_docx("生成的文档.docx")

# 批量替换Heading x为Custom Headline x
for (level in 1:6) {
  old_style <- paste0("Heading ", level)
  new_style <- paste0("Custom Headline ", level)
  doc <- style_rename(doc, old_name = old_style, new_name = new_style)
}

# 保存修改后的文档
print(doc, target = "修改后的文档.docx")

注意：如果你的自定义样式在模板中已存在，方案一和二会直接应用该样式；方案三是重命名默认样式的名称，需确保模板中没有同名样式冲突。

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