我明白你现在的困扰——用flextable生成的表格在通过knitr输出Word文档时，经常被跨页拆分，影响阅读体验。你尝试用<div custom-style = "Table of Figures">来应用Word样式，但这种方式可能没触碰到问题核心，因为flextable是表格对象，需要针对性地设置表格属性或应用Word表格样式。下面给你几个实用的解决方案：

1. 直接用flextable函数禁止表格跨页拆分 #

flextable自带了控制表格分页的参数，你可以通过fp_table()设置禁止表格跨页断行，再结合set_table_properties()应用Word样式：

---
title: "Flextable Word样式演示"
output: 
  word_document:
    reference_docx: "你的模板文件.dotx" # 若使用自定义Word模板需指定
---

```{r, echo = F, message = F}
library(flextable)

# 生成示例表格
my_table <- flextable(iris[1:30, ]) %>%
  # 设置表格属性：应用Word表格样式 + 禁止跨页拆分
  set_table_properties(
    layout = "autofit", # 自动适配表格宽度
    word_stylename = "Table of Figures", # 指定Word中的表格样式名称
    fp = fp_table(allow_break = FALSE) # 关键参数：禁止表格跨页断行
  )

my_table

## 2. 正确结合Word模板与表格样式
如果你想用自定义的Word样式（比如“Table of Figures”），需要确保两个关键点：
- 你的Word模板（.dotx）中已经定义好**表格样式**（不是段落样式），且样式名称和代码里的`word_stylename`完全一致
- 在R Markdown的output选项中指定这个模板，输出的Word文档会自动继承模板里的样式设置

## 3. 补充技巧：手动控制分页位置
如果表格本身内容过多无法避免跨页，你可以在表格前插入分页符，确保表格从新页面开始：

```r
# 在表格前插入分页符
cat("\\newpage")

# 输出表格
my_table

注意：之前用<div>包裹的方式是给段落应用样式，对flextable表格不生效——因为flextable是独立的表格对象，需要用word_stylename参数直接绑定Word表格样式才能起作用。

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