flextable导出Word时出现多余水平横线的原因及解决方法

该异常是flextable v0.7.2版本Word渲染端的边框逻辑缺陷：
调用border_remove()清除全表边框时，Word输出对应的OpenXML结构未完全擦除正文第一行的顶部边框默认属性；后续执行delete_part(part = 'header')删除表头后，原本被表头遮挡的第一行顶部残留边框会直接显示在表格最顶端。HTML渲染逻辑为全量重写单元格样式，不会保留残留属性，因此输出无异常。

以下两种方案均可完全消除多余横线，最终Word输出效果与HTML端一致：

• 方案1：初始化表格时直接关闭表头生成，从根源避免删除表头带来的边框残留
  完整可复现Rmd代码如下：

---
output: 
  word_document
---

```{r setup, message=FALSE, warning=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(flextable)

tab <- data.frame(
  x = c('Row1', 'Row2:'),
  y = c(NA, NA)
)

# 初始化时设置header=FALSE，无需后续调用delete_part
flextable::flextable(tab, header = FALSE) %>%
  flextable::border_remove() %>%
  flextable::hline(i = 1:2, j = 2, part = 'body')

- 方案2：保留原有代码流程，在代码末尾新增一步，手动将正文第一行的顶部边框设为0宽度，直接擦除残留横线
核心修改代码段：
```r
flextable::flextable(tab) %>%
  flextable::border_remove() %>%
  flextable::hline(i = 1:2, j = 2, part = 'body') %>%
  flextable::delete_part(part = 'header') %>%
  # 新增该行清除顶部残留边框
  flextable::hline_top(
    i = 1, 
    part = "body", 
    border = officer::fp_border(width = 0)
  )

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