使用R语言：如何为flextable列中部分文字加粗并导出为.docx？

要实现仅对Description字段中的特定关键词加粗，你可以利用flextable的compose()函数结合字符串处理工具，精准定位关键词并应用加粗样式。以下是完整的可运行代码示例：

步骤1：加载依赖包 #

library(flextable)
library(officer)
library(stringr)

步骤2：准备数据（模拟你的项目结构） #

df <- data.frame(
  ID = c(1, 2, 3),
  Description = c(
    "This is a description. Test description again.",
    "No keyword here.",
    "Description is the key word we need to bold."
  )
)

步骤3：定义关键词并处理表格 #

# 你的关键词列表
keywords <- c("description")

# 构建正则表达式（\\b 用于匹配完整单词，避免部分匹配如"descriptions"）
keyword_pattern <- paste0("\\b(", paste(keywords, collapse = "|"), ")\\b")

# 创建表格并设置关键词局部加粗
formatted_table <- flextable(df) %>%
  # 针对Description列自定义内容格式
  compose(
    j = "Description",
    value = as_paragraph(
      str_replace_all(
        as_chunk(Description),
        keyword_pattern,
        # 将匹配到的关键词转为加粗文本块
        function(match_text) bold(as_chunk(match_text))
      )
    )
  ) %>%
  # 调整列宽适配长文本
  width(j = "Description", width = 4) %>%
  # 导出为docx文件
  save_as_docx(path = "output_table.docx")

关键细节说明 #

• compose()：专门用于自定义单元格的内容结构，这里精准定位Description列进行格式修改。
• 若需要不区分大小写匹配关键词，可将正则表达式改为regex(keyword_pattern, ignore_case = TRUE)，并传入str_replace_all()的pattern参数。
• 若关键词列表较长，只需在keywords向量中添加新关键词即可，正则表达式会自动批量匹配。

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