如何在R Markdown自动化Word报告中替换模板页眉的报告编号？

要实现基于参数自动替换Word页眉中的报告编号，仅靠R Markdown默认的reference_docx样式模板做不到，得结合officer包操作生成后的Word文档，具体步骤如下：

1. 预处理Word模板 #

打开你的template.docx，编辑页眉，把需要替换编号的位置改成一个唯一占位符（比如<<REPORT_NO>>），确保这个占位符不会和报告正文里的内容重复，保存模板。

2. 编写带参数替换逻辑的R Markdown文件 #

在原有的Rmd代码基础上，添加officer包的处理逻辑，自动替换页眉占位符为参数值：

---
params:
   report_no: 'XXX-111-A'
title: ""
output: 
  word_document:
    reference_docx: "template.docx"
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
# 安装并加载所需包（首次运行需要安装）
if (!require("officer")) install.packages("officer")
if (!require("magrittr")) install.packages("magrittr")
library(officer)
library(magrittr)

这里填写你的报告内容...

# 获取当前生成的Word文件路径
output_path <- file.path(
  knitr::current_output_dir(),
  paste0(tools::file_path_sans_ext(knitr::current_input()), ".docx")
)

# 加载生成的文档并替换页眉占位符
doc <- read_docx(output_path) %>%
  body_replace_all_text(
    old_value = "<<REPORT_NO>>",
    new_value = params$report_no,
    fixed = TRUE  # 精确匹配占位符，避免部分匹配替换
  )

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

## 3. 关键说明
- `body_replace_all_text`会遍历文档所有内容（包括页眉、页脚），精准替换你设置的占位符，确保所有页面的页眉都能显示正确的报告编号。
- 如果你的Word模板存在多节、不同页眉的情况，只需确保每节页眉的占位符一致，该方法依然有效。
- 若运行时提示包未安装，先执行代码中的`install.packages`命令安装依赖。

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