如何用officer包让表格占满Word页面几乎全部宽度？

问题分析 #

你尝试使用fit_to_width、width、table_width等函数让表格占满Word页面宽度但未成功，核心原因是autofit()会自动调整表格尺寸，覆盖手动设置的宽度规则，同时未正确匹配Word页面的可用宽度。

解决方案 #

1. 移除autofit()调用，避免自动调整覆盖自定义宽度
2. 使用table_width()结合Word页面的可用宽度设置表格总宽度
3. 在body_add_flextable中指定width = "100%"确保表格适应文档容器

修改后的代码 #

# 加载所需库
library(officer)
library(flextable)

# 创建数据
colonne1 <- c("Nombre totaux d'arceaux vélo", "Nombre d'arceaux vélos installés")
colonne2 <- c(10, 5)
df <- data.frame(Colonne1 = colonne1, Colonne2 = colonne2)

# 计算Word页面可用宽度（以美式Letter页面为例，左右边距各1英寸）
# 若使用A4页面，替换为：page_width <- (21/2.54) - 2*1
page_width <- 8.5 - 2*1 

# 格式化表格
TABLEAU <- flextable(df) %>%
  align(align = "left", part = "all") %>%
  bg(bg = "#D3D3D3", part = "header") %>%
  bold(part = "header") %>%
  align(align = "left", part = "header") %>%
  set_caption(paste("BL", commune, "en", annee_prec)) %>%
  # 设置表格总宽度为页面可用宽度
  table_width(width = page_width, unit = "in") %>%
  # 按比例分配列宽（可根据内容调整比例）
  width(j = 1, width = page_width * 0.7) %>%
  width(j = 2, width = page_width * 0.3)

# 创建Word文档
doc <- read_docx()

# 添加表格到文档，设置宽度为100%
doc <- body_add_flextable(doc, value = TABLEAU, width = "100%")

# 保存文档
print(doc, target = "Desktop/file.docx")

额外说明 #

• 列宽比例可根据实际内容灵活调整，只要各列宽度总和等于页面可用宽度即可
• table_width()的unit参数支持"in"（英寸）、"cm"（厘米）等单位，需和页面宽度计算单位保持一致
• 若需调整页面边距，可使用officer的page_size()和page_mar()函数自定义页面设置

期望效果：

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