使用R的officer包设置文本对齐、字体及字号问题求助

原代码存在两个核心问题：

1. body_add函数并非用于添加格式化段落，且style="Justify"无效——默认Word文档没有内置名为"Justify"的样式，段落对齐需通过段落格式属性(fp_par)设置。
2. 指定style="Normal"时，内置样式的格式优先级高于prop参数中的文本设置，导致字体、字号不生效。

修改后的代码 #

if (!requireNamespace("officer", quietly = TRUE)) {
  install.packages("officer")
}
library(officer)
library(dplyr)

# 创建新文档并修改默认Normal样式（全局生效）
new.word.doc <- function(){
  my.doc <- read_docx() %>%
    # 修改Normal样式：设置Calibri字体、12号字，段落两端对齐
    body_set_default_style(
      style = "Normal",
      fp_text = fp_text(font.family = "Calibri", font.size = 12, color = "black"),
      fp_par = fp_par(text.align = "justify")
    )
  return(my.doc)
}

doc <- new.word.doc()

# 添加标题段落（自定义字体大小和加粗）
doc <- doc %>%
  body_add_par("") %>% # 空行
  body_add_par(
    "Lorem ipsum",
    # 自定义文本属性：覆盖Normal样式的字号和加粗
    prop = fp_text(font.family = "Calibri", font.size = 14, color = "black", bold = TRUE),
    # 标题段落左对齐（可选）
    fp_par = fp_par(text.align = "left")
  ) %>%
  body_add_par("") %>% # 空行
  # 添加正文段落，继承修改后的Normal样式（两端对齐、Calibri12号）
  body_add_par("Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat.")

# 保存文档
print(doc, target = "formatted_doc.docx")

关键修改点说明 #

• 全局修改Normal样式：通过body_set_default_style修改内置Normal样式的字体、字号和段落对齐，确保所有使用该样式的段落自动应用格式，无需重复设置。
• 区分段落与文本属性：段落对齐（如两端对齐text.align = "justify"）通过fp_par设置，字体、字号等文本样式通过fp_text设置，避免混淆。
• 替换body_add为body_add_par：body_add是通用添加函数，添加段落应使用专门的body_add_par，更便于控制格式。
• 局部覆盖样式：对于需要特殊格式的段落（如标题），可以通过prop和fp_par参数局部覆盖全局样式。

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