使用R语言officer包替换Word模板文本时无法换行的问题

问题原因 #

body_replace_all_text 是纯文本替换逻辑，Excel中的 \r\n 无法被Word识别为段落分隔，且该函数无法自动生成项目符号列表结构，最终导致两条内容合并成一行显示。

解决方案 #

通过定位占位符位置，删除占位符后插入项目符号列表实现分行效果，具体步骤如下：

1. 加载依赖包 #

library(officer)
library(readxl)

2. 读取数据与模板 #

# 读取Excel数据，拆分单元格内换行分隔的内容为独立列表项
df <- read_excel("C:/WORKSPACE/df.xlsx", sheet='Sheet1')
info_items <- strsplit(df$`Requested Information`, "\r\n")[[1]]

# 读取Word模板
doc <- read_docx("C:/WORKSPACE/example.docx")

3. 定位占位符并替换为列表 #

遍历文档段落，找到包含 «Requested_information» 的位置，删除占位符后插入项目符号列表：

# 遍历文档所有段落
for (i in seq_len(body_length(doc))) {
  para_content <- body_get_fpar(doc, i)$content[[1]]$text
  if (grepl("«Requested_information»", para_content)) {
    # 删除占位符所在的原段落
    doc <- body_remove(doc, i)
    # 逐个插入项目符号列表项
    for (item in info_items) {
      doc <- body_add_par(doc, value = item, style = "List Bullet")
    }
    break # 找到占位符后立即退出循环，避免重复操作
  }
}

4. 保存输出文档 #

print(doc, target = "C:/WORKSPACE/output.docx")

补充说明 #

• 如果Excel中两条记录是单独的行（而非同一单元格内的换行），直接将 info_items 设为 df$Requested Information`` 即可，无需使用 strsplit 拆分。
• style = "List Bullet" 是Word默认的项目符号样式，若模板有自定义列表样式，替换为对应样式名称即可。

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