flextable表格标题未遵循Word样式问题咨询

问题说明 #

使用officedown+flextable生成Word报表时，指定“Table Caption”样式后，仅自动编号的“Table #:”部分遵循样式字体，自定义标题文本（如示例中的“airquality dataset”）却显示为Arial（或正文样式字体），无论用tab.cap参数还是set_caption都无法解决。

解决方案1：手动构建统一格式的标题 #

放弃knitr的自动标题拆分逻辑，用set_caption手动组合完整标题，并统一应用样式对应的字体属性：

示例代码 #

---
title: "flextable caption example"
output:
   officedown::rdocx_document:
    reference_docx: ref.docx
---

```{r setup, include=FALSE}
library(officedown)
library(officer)
library(flextable)

knitr::opts_chunk$set(echo = FALSE)

# 读取模板文档，提取Table Caption样式的字体属性
doc <- read_docx("ref.docx")
cap_style <- styles_info(doc)[styles_info(doc)$style_name == "Table Caption", ]
cap_fp <- fp_text(
  font.family = cap_style$font_name,
  font.size = cap_style$font_size,
  bold = cap_style$bold,
  italic = cap_style$italic
)

# 构建完整标题，统一应用样式字体
full_caption <- as_paragraph(
  run_text(text = "Table 1: ", prop = cap_fp),
  run_text(text = "airquality dataset", prop = cap_fp)
)

ft <- qflextable(head(airquality))
ft <- set_caption(ft, caption = full_caption)
ft

## 解决方案2：用block_caption生成完整样式标题
使用`officedown::block_caption`直接生成符合指定样式的标题块，确保整个标题都应用样式属性：

### 示例代码
```r
```{r setup, include=FALSE}
library(officedown)
library(officer)
library(flextable)

knitr::opts_chunk$set(echo = FALSE)

ft <- qflextable(head(airquality))

# 生成带自动编号的完整样式标题
cap <- block_caption(
  label = "airquality dataset",
  style = "Table Caption",
  autonum = run_autonum(seq_id = "tab", pre_label = "Table ", sep = ": ")
)

# 先输出标题，再输出表格
cat(officer::docx_body_add(read_docx("ref.docx"), cap)$content)
print(ft)

## 问题根源
officedown默认会将标题的自动编号前缀和自定义文本拆分渲染：前缀部分强制应用指定样式，而文本部分默认继承文档的正文样式，导致字体不一致。上述两种方法都是通过统一处理整个标题内容，避免拆分渲染的问题。

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