使用officer包添加连续分节后页眉空白问题（边距已设为0）

问题场景 #

需要创建多页Word文档，要求第一页内容紧贴页面顶部。初始代码实现了该需求，但添加连续分节（已设置所有边距含页眉边距为0）创建第二页后，第二页顶部出现了无法消除的空白区域。

初始实现代码（第一页正常） #

library(officer)
library(magrittr)

my_doc <- read_docx('empty_with_footnotes.docx') 

font.size_space = 4

my_doc <- my_doc %>%
  body_add_fpar(fpar(ftext(
    paste0("\u00A0"),
    fp_text(font.family = 'Calibri',
            font.size = font.size_space - 1, bold = TRUE)),
    fp_p = fp_par(text.align = "right",
                  shading.color = 'darkgrey')), pos = 'on')

my_doc <- my_doc %>%
  body_add_fpar(fpar('Some Text',
                     fp_p = fp_par(text.align = "right",
                                   shading.color = 'darkgrey')))

my_doc <- my_doc %>%
  body_add_fpar(fpar(ftext(
    paste0("\u00A0"),
    fp_text(font.family = 'Calibri',
            font.size = font.size_space, bold = TRUE)),
    fp_p = fp_par(text.align = "right",
                  shading.color = 'darkgrey')))

my_doc <- my_doc %>%
  body_add_fpar(fpar(ftext(
    paste0("\u00A0"),
    fp_text(font.family = 'Calibri',
            font.size = font.size_space, bold = TRUE)),
    fp_p = fp_par(text.align = "right")))

print(my_doc, target = 'file.docx')

第一页效果：内容完全紧贴页面顶部，右侧有深灰色背景的文本块。

添加分节后的问题代码 #

添加连续分节并创建第二页内容后，第二页顶部出现空白：

end_header <- block_section(
  prop_section(
    page_size =
      page_size(orient = "portrait"),
    type = "continuous",
    page_margins = page_mar(
      bottom = 0,
      top = 0.0,
      right = 0.05,
      left = 0.04,
      header = 0,
      footer = 0,
      gutter = 0
    )
  )
)

my_doc <- my_doc %>%
  body_end_block_section(end_header)

my_doc <- my_doc %>%
  body_add_fpar(fpar(
    ftext(paste0('Next Page'),
          fp_text(underlined = F, font.size = 9, font.family = "Calibri", italic = F, bold = TRUE)),
    fp_p = fp_par(text.align = "justify")), style=NULL)

print(my_doc, target = 'file2.docx')

第二页问题：即使设置了边距为0，页面顶部仍存在空白行。

解决方案 #

问题根源是分节后默认启用了Word的页眉区域，且新增段落默认带有段前间距。通过两个调整可以彻底消除空白：

1. 分节时禁用默认页眉/页脚 #

在prop_section中添加header_default = FALSE和footer_default = FALSE，彻底关闭分节的页眉区域：

end_header <- block_section(
  prop_section(
    page_size = page_size(orient = "portrait"),
    type = "continuous",
    page_margins = page_mar(
      bottom = 0,
      top = 0.0,
      right = 0.05,
      left = 0.04,
      header = 0,
      footer = 0,
      gutter = 0
    ),
    header_default = FALSE, # 禁用默认页眉
    footer_default = FALSE   # 禁用默认页脚
  )
)

2. 设置新增段落的段前间距为0 #

在添加第二页内容时，通过fp_par明确设置space_before = 0，消除段落自带的顶部间距：

my_doc <- my_doc %>%
  body_add_fpar(fpar(
    ftext('Next Page',
          fp_text(underlined = F, font.size = 9, font.family = "Calibri", italic = F, bold = TRUE)),
    fp_p = fp_par(text.align = "justify", space_before = 0, space_after = 0)), style=NULL)

完整修正后代码 #

library(officer)
library(magrittr)

my_doc <- read_docx('empty_with_footnotes.docx') 

font.size_space = 4

# 第一页内容
my_doc <- my_doc %>%
  body_add_fpar(fpar(ftext(
    paste0("\u00A0"),
    fp_text(font.family = 'Calibri',
            font.size = font.size_space - 1, bold = TRUE)),
    fp_p = fp_par(text.align = "right",
                  shading.color = 'darkgrey')), pos = 'on')

my_doc <- my_doc %>%
  body_add_fpar(fpar('Some Text',
                     fp_p = fp_par(text.align = "right",
                                   shading.color = 'darkgrey')))

my_doc <- my_doc %>%
  body_add_fpar(fpar(ftext(
    paste0("\u00A0"),
    fp_text(font.family = 'Calibri',
            font.size = font.size_space, bold = TRUE)),
    fp_p = fp_par(text.align = "right",
                  shading.color = 'darkgrey')))

my_doc <- my_doc %>%
  body_add_fpar(fpar(ftext(
    paste0("\u00A0"),
    fp_text(font.family = 'Calibri',
            font.size = font.size_space, bold = TRUE)),
    fp_p = fp_par(text.align = "right")))

# 修正后的连续分节设置
end_header <- block_section(
  prop_section(
    page_size = page_size(orient = "portrait"),
    type = "continuous",
    page_margins = page_mar(
      bottom = 0,
      top = 0.0,
      right = 0.05,
      left = 0.04,
      header = 0,
      footer = 0,
      gutter = 0
    ),
    header_default = FALSE,
    footer_default = FALSE
  )
)

my_doc <- my_doc %>%
  body_end_block_section(end_header)

# 修正后的第二页内容添加
my_doc <- my_doc %>%
  body_add_fpar(fpar(
    ftext('Next Page',
          fp_text(underlined = F, font.size = 9, font.family = "Calibri", italic = F, bold = TRUE)),
    fp_p = fp_par(text.align = "justify", space_before = 0, space_after = 0)), style=NULL)

print(my_doc, target = 'file_fixed.docx')

效果验证 #

修正后第二页内容会完全紧贴页面顶部，与第一页的布局保持一致，不再有顶部空白区域。

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