如何用R语言基于DataFrame批量自动化生成Word文档？

核心逻辑 #

直接遍历DataFrame的每一行，对每行数据重复执行「加载模板→替换占位符→保存专属文档」的流程，用每行的唯一信息（比如企业名称）作为输出文件名，防止文件覆盖。

基础实现代码 #

假设你的Word模板路径为"template.docx"，DataFrame名为df，模板里的占位符是{{企业名称}}、{{联系人姓名}}、{{地址}}这类格式：

library(officer)
library(dplyr)

# 循环遍历每一行数据
for (i in 1:nrow(df)) {
  # 提取当前行的所有信息
  current_data <- df[i, ]
  
  # 加载预先准备好的Word模板
  doc <- read_docx("template.docx")
  
  # 逐一替换模板中的占位符
  doc <- doc %>%
    body_replace_all_text(pattern = "{{企业名称}}", replacement = current_data$企业名称, fixed = TRUE) %>%
    body_replace_all_text(pattern = "{{联系人姓名}}", replacement = current_data$联系人姓名, fixed = TRUE) %>%
    body_replace_all_text(pattern = "{{地址}}", replacement = current_data$地址, fixed = TRUE)
  
  # 生成不重复的文件名（用企业名称做标识，可按需调整）
  output_file <- paste0(current_data$企业名称, "_客户文档.docx")
  
  # 保存生成的文档
  print(doc, target = output_file)
}

实用优化建议 #

• 效率提升：如果数据量极大（比如上万行），用purrr包的批量处理函数替代循环，代码更简洁且性能更好：

  library(purrr)
  
  # 定义生成单份文档的函数
  create_single_doc <- function(企业名称, 联系人姓名, 地址) {
    doc <- read_docx("template.docx") %>%
      body_replace_all_text("{{企业名称}}", 企业名称, fixed = TRUE) %>%
      body_replace_all_text("{{联系人姓名}}", 联系人姓名, fixed = TRUE) %>%
      body_replace_all_text("{{地址}}", 地址, fixed = TRUE)
    print(doc, target = paste0(企业名称, "_客户文档.docx"))
  }
  
  # 批量执行函数
  pwalk(df, create_single_doc)
  

• 文件名清洗：如果企业名称包含斜杠、问号等系统禁用的文件名字符，提前处理：

  # 定义清洗函数
  clean_file_name <- function(name) {
    gsub("[\\\\/:*?\"<>|]", "", name)
  }
  # 生成文件名时调用
  output_file <- paste0(clean_file_name(current_data$企业名称), "_客户文档.docx")
  

• 统一存储路径：提前创建专属文件夹，避免生成的文件混乱：

  # 创建输出文件夹（已存在则不报错）
  dir.create("批量生成文档", showWarnings = FALSE)
  # 保存时指定文件夹路径
  print(doc, target = file.path("批量生成文档", output_file))
  

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