Flextable导出Word：如何将每个表格单独显示在不同页面？

你当前的代码会将多个表格连续排布在同一页面，要让每个表格单独占一页，只需在表格之间插入分页符，借助officer包的功能就能实现：

1. 加载必要的包：flextable用于创建表格，officer提供分页符功能
2. 生成目标表格对象
3. 构建内容列表：在每两个表格之间插入分页符（最后一个表格后无需添加）
4. 保存为Word文档

完整代码示例：

library(flextable)
library(officer)

# 创建示例表格
FT <- flextable(head(mtcars))

# 构建包含表格和分页符的列表：表格+分页符的组合，最后一个表格后不加分页符
content_list <- list(FT, run_pagebreak(), FT)

# 保存至Word文档
save_as_docx(values = content_list, path = "result.docx")

说明：run_pagebreak()函数会在对应位置插入分页符，强制后续内容跳转到新页面。如果需要添加更多表格，只需按照「表格 + run_pagebreak()」的模式重复添加，最后一个表格末尾不需要加分页符即可。

内容的提问来源于stack exchange，提问作者Sle R.