如何在R中为导出的.docx文件指定flextable表格尺寸？

你调用save_as_docx()时传入的height和width参数是用来设置文档页面的尺寸，而非表格本身的尺寸，这就是导出后表格不符合预期的原因。要让表格达到指定的3.43×6.86英寸尺寸，需要先对flextable对象进行尺寸配置，再导出。

关键单位转换 #

flextable默认使用厘米作为单位，先把目标英寸尺寸转换为厘米：

• 目标宽度：6.86英寸 × 2.54 ≈ 17.42厘米
• 目标高度：3.43英寸 × 2.54 ≈ 8.71厘米

方法一：自动适配尺寸（推荐） #

使用fit_to_width()和fit_to_height()让表格自动调整列宽、行高甚至字体大小，适配目标尺寸：

library(flextable)

# 读取数据
data <- mtcars
  
# 创建flextable
ft <- flextable(data[1:8,1:8])

# 单位转换：英寸转厘米
target_width_cm <- 6.86 * 2.54
target_height_cm <- 3.43 * 2.54

# 配置表格尺寸
ft <- ft %>%
  fit_to_width(width = target_width_cm) %>%  # 适配目标宽度
  fit_to_height(height = target_height_cm) %>%  # 适配目标高度
  set_table_properties(layout = "fixed")  # 固定布局，防止Word自动调整

# 导出时同步设置页面尺寸（可选，确保页面完整容纳表格）
ft %>% 
  save_as_docx(
    path = "./images/tables/test.docx", 
    height = 3.43, 
    width = 6.86, 
    unit = "in"
  )

方法二：手动分配行列尺寸 #

如果希望严格固定行列尺寸、不调整字体大小，可以手动平均分配列宽和行高：

library(flextable)

data <- mtcars
ft <- flextable(data[1:8,1:8])

target_width_cm <- 6.86 * 2.54
target_height_cm <- 3.43 * 2.54

# 平均分配列宽（共8列）
ft <- ft %>%
  width(width = target_width_cm / 8) %>%
  # 平均分配行高（8行数据+1行表头，共9行）
  height(height = target_height_cm / 9) %>%
  set_table_properties(layout = "fixed", width = target_width_cm)

# 导出文档
ft %>% 
  save_as_docx(
    path = "./images/tables/test.docx", 
    height = 3.43, 
    width = 6.86, 
    unit = "in"
  )

注意事项 #

• 使用fit_to_height()时，若表格内容过多，会自动压缩字体或行高适配尺寸；若不需要压缩，建议使用手动分配方法；
• set_table_properties(layout = "fixed")必须设置，否则Word可能自动调整表格布局，导致尺寸失效。

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