如何在循环中用Knitr批量生成Word文档？

完全可以实现，不需要依赖knit2word函数，直接使用rmarkdown::render()即可——这是所有knit2xxx系列函数的底层依赖，支持生成Word格式输出。以下是具体实现步骤：

1. 配置参数化Rmd模板 #

在你的Rmd文件中添加参数定义，让模板可以接收不同学校的参数，动态生成内容：

---
title: "`r params$school` 专属报告"
output: word_document
params:
  school: "默认学校"  # 定义学校参数，设置默认值
---

# `r params$school` 数据分析报告

这里是针对**`r params$school`**的专属内容，比如：
- 学生人数统计
- 成绩分析结果

2. 编写循环生成代码 #

遍历学校列表，对每个学校调用render()函数，传入对应参数并指定输出文件名：

# 定义需要处理的学校列表
school_list <- c("第一中学", "第二中学", "第三小学")

# 循环生成每个学校的Word文档
for (current_school in school_list) {
  rmarkdown::render(
    input = "你的模板文件.Rmd",  # 替换为你的Rmd模板路径
    output_file = paste0(current_school, "_报告.docx"),  # 自定义输出文件名
    params = list(school = current_school),  # 传入当前学校参数
    quiet = TRUE  # 可选：抑制渲染过程中的日志输出
  )
}

3. 替代现有批量R文件方案（可选） #

如果你已经生成了多个独立R文件，其实可以将这些R文件中的逻辑整合到参数化模板的代码块中，或者在模板中通过source()调用对应学校的R文件：

# 在Rmd模板的代码块中调用对应学校的R脚本
source(paste0(params$school, "_分析脚本.R"))

这种方式无需维护大量重复的R文件，仅通过参数传递即可实现内容差异化，更易维护。

内容的提问来源于stack exchange，提问作者D. Studer