嗨，这个问题我之前也踩过坑，其实核心原因是flextable在HTML和Office格式（docx/rtf/pptx）下的边框渲染逻辑完全不同：

• HTML是基于单个单元格的独立样式渲染的，你给第2行设置top和bottom边框，浏览器会直接渲染该单元格的上下边框，完全没问题。
• 但Office格式是依托officer包来处理的，它用的是表格共享边框模型：简单说，单元格的顶部边框本质是它上方单元格的底部边框，二者是同一个边界。你用border_remove()清空所有默认边框后，只给第2行设置top边框，这个边框对应的是第1行的底部边界，但你没给第1行的bottom边框做任何设置，Office软件就会认为这个边框是“悬空”的，不会渲染；而第2行的bottom边框是属于它自身的底部边界（或者说第3行的顶部边界），你明确设置了，所以能正常显示。

给你两个简单的修复方案，直接替换你的代码就能用：

方案1：调整边框的归属行 #

既然第2行的top边框对应第1行的bottom边框，那我们直接给第1行设置bottom边框，同时保留第2行的bottom边框设置，这样Office格式就能正确识别：

library(flextable) # 0.9.9
library(officer) # 0.6.10

ft <- flextable(head(iris)) |> 
  border_remove() |> 
  # 设置第1行的bottom边框（对应原需求中第2行的top边框）
  border(i = 1, border.bottom = fp_border(color = "black", width = 2), part = "body") |> 
  # 设置第2行的bottom边框
  border(i = 2, border.bottom = fp_border(color = "black", width = 2), part = "body")

save_as_html(ft, path = "test.html")
save_as_docx(ft, path = "test.docx")
save_as_rtf(ft, path = "test.rtf")
save_as_pptx(ft, path = "test.pptx")

方案2：用更省心的hline系列函数 #

flextable专门提供了hline()这类针对水平边框的函数，它会自动处理Office格式的边框归属问题，不用你自己纠结行索引对应关系：

library(flextable) # 0.9.9
library(officer) # 0.6.10

ft <- flextable(head(iris)) |> 
  border_remove() |> 
  # 在第1行和第2行之间添加水平边框（对应原需求的第2行top边框）
  hline(i = 1, border = fp_border(color = "black", width = 2), part = "body") |> 
  # 在第2行和第3行之间添加水平边框（对应原需求的第2行bottom边框）
  hline(i = 2, border = fp_border(color = "black", width = 2), part = "body")

save_as_html(ft, path = "test.html")
save_as_docx(ft, path = "test.docx")
save_as_rtf(ft, path = "test.rtf")
save_as_pptx(ft, path = "test.pptx")

另外补充个小提示：如果你要给特定单元格（不是整行）设置边框，记得一定要指定j参数，同时确保对应的相邻单元格的边框设置是匹配的，这样Office格式才能正确渲染出你要的效果。

内容来源于stack exchange