R中Flextable导出的.docx文件无法在Word中打开问题求助

原操作场景与代码 #

在R环境中导入.csv格式文件，转换为flextable对象后导出为Word .docx格式文档，使用的代码如下：

library(tidyverse)
library(readxl)
library(scales)
library(janitor)
library(stringr)
library(magrittr)
library(officer)
library(flextable)
library(dplyr)

# load data ---------------------------------------------------------------

Rpops_survey <- read_csv("R-POPS Data Quant.csv")
spec(Rpops_survey)

# convert data ------------------------------------------------------------
Rpops_survey_dframed <- as.data.frame(Rpops_survey)
Rpops_ft1 <- flextable(Rpops_survey_dframed)
Rpops_doctemp <- read_docx()
Rpops_doctemp <- body_add_flextable(Rpops_doctemp, value = Rpops_ft1)

# export data -------------------------------------------------------------
fileout <- tempfile(fileext = ".docx")
fileout <- "test.docx" 
print(Rpops_doctemp, target = fileout)

问题现象 #

文件可正常生成，但尝试在Word中打开该文件时触发报错，报错截图如下：

原因与修复方法 #

该问题由flextable默认格式与空白Word模板不兼容导致，调整代码即可解决，修正后可用代码如下：

library(tidyverse)
library(readxl)
library(scales)
library(janitor)
library(stringr)
library(magrittr)
library(officer)
library(flextable)
library(dplyr)

# 加载数据
Rpops_survey <- read_csv("R-POPS Data Quant.csv")
# 提前清理列名，避免特殊字符触发Word兼容性问题
Rpops_survey <- clean_names(Rpops_survey)
spec(Rpops_survey)

# 转换为flextable并添加兼容格式
Rpops_survey_dframed <- as.data.frame(Rpops_survey)
Rpops_ft1 <- flextable(Rpops_survey_dframed) %>%
  # 设置自适应宽度，避免表格超出Word页面边界
  set_table_properties(width = 1, layout = "autofit") %>%
  # 应用通用表格主题，减少格式冲突
  theme_booktabs()

# 写入Word文档
Rpops_doctemp <- read_docx()
# 插入表格前先添加空白段落，避免直接插入表格触发格式错位
Rpops_doctemp <- body_add_par(Rpops_doctemp, "")
Rpops_doctemp <- body_add_flextable(Rpops_doctemp, value = Rpops_ft1)

# 导出文件
fileout <- "test.docx" 
print(Rpops_doctemp, target = fileout)

额外排查项 #

如果调整后依然无法正常打开，可尝试如下操作：

• 升级officer和flextable到最新稳定版本，旧版本存在较多兼容BUG，升级命令：install.packages(c("officer", "flextable"))
• 检查csv文件内容是否存在/、\、<等Word不支持的特殊控制字符，提前做字符替换处理

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