使用officer生成MS Word文档，如何控制段落间的间距？

当然有办法解决这个问题！你遇到的连续段落间距过宽的情况，其实可以通过officer的段落格式属性来精准控制，可能你之前没留意到fp_par()这个核心函数，以及样式修改的功能。

下面给你两种常用的解决方案：

1. 为单个段落指定自定义间距 #

你可以用fp_par()创建一个段落格式对象，然后在body_add_par()中通过par_properties参数传入，直接控制该段落的前后间距和行间距：

library(officer)

# 创建空白文档
doc <- read_docx()

# 定义自定义段落格式：前后间距0磅，行间距1.0倍
tight_par <- fp_par(
  space_before = 0,    # 段落前间距（单位：磅，默认）
  space_after = 0,     # 段落后间距
  line_spacing = 1.0   # 行间距倍数
)

# 应用格式插入段落
doc <- doc %>%
  body_add_par("这是第一段，间距已收紧", par_properties = tight_par) %>%
  body_add_par("这是第二段，和上一段的间距不再过宽", par_properties = tight_par)

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

如果需要用其他单位（比如厘米、英寸），可以用officer提供的单位转换函数，比如space_before = cm(0.1)或者space_before = inches(0.04)。

2. 修改默认样式，批量控制所有段落 #

如果你希望所有段落都使用紧凑的间距，更高效的方式是修改Word的内置"Normal"样式，这样后续插入的段落会自动应用这个设置，不用每次手动指定：

doc <- read_docx()

# 修改Normal样式的段落属性
doc <- doc %>%
  style_paragraph(
    style_id = "Normal",
    space_before = 0,
    space_after = 0,
    line_spacing = 1.15  # 可以根据需求调整行间距
  )

# 直接插入段落，自动应用修改后的样式
doc <- doc %>%
  body_add_par("默认样式的第一段，间距已调整") %>%
  body_add_par("默认样式的第二段，无需重复设置格式")

print(doc, target = "default_tight_style.docx")

为什么你之前没找到？ #

这些控制逻辑主要集中在格式属性（fp_*系列函数）和样式修改的文档部分，而body_add_par()的文档可能没有直接关联这些细节。你可以再去查看fp_par()和style_paragraph()的帮助文档，里面有更详细的参数说明。

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