R语言officer包合并分栏docx文档时分栏格式丢失问题

问题根源 #

这不是代码疏漏，是officer包body_add_docx()的固有逻辑：该函数插入外部docx内容时，只会保留字符、段落级别的格式，会直接丢弃被插入文件的节（Section）级属性。而你用body_end_section_columns()生成的分栏属于Word的节级页面设置，和页边距、纸张方向、页眉页脚是同一层级的设置，插入时节属性被丢弃，分栏自然就失效了。
另外原写法还有个逻辑问题：用body_add_break()加的是普通分页符，不是分节符，就算节属性没丢，前后两块内容也会被归到同一个节里，后插入的内容格式会被前一节的设置覆盖。

解决方法 #

优先直接在同一个文档对象里顺序构建所有分栏块，完全不需要先生成临时docx再合并，这是最稳定不会丢格式的写法：

library(officer)
library(magrittr)

# 样例文本
str1 <- "Lorem ipsum dolor sit amet, consectetur adipiscing elit."
str1 <- rep(str1, 20)
str1 <- paste(str1, collapse = " ")

# 单文档流直接构建多块分栏内容
final_doc <- read_docx() %>% 
  # 第一个分栏块
  body_add_par(str1, style = "Normal") %>% 
  body_end_section_columns(widths = c(3, 3), space = 0, sep = FALSE) %>% 
  # 第二个分栏块，上一个节结束已自动带分节分页效果，无需额外加break
  body_add_par(str1, style = "Normal") %>% 
  body_end_section_columns(widths = c(3, 3), space = 0, sep = FALSE)

print(final_doc, target = "final.docx")

如果确实需要拆分生成临时文件再合并（比如不同分栏块由独立流程生成），插入外部内容后必须手动给对应块补设分栏节属性，不能依赖被插入文件自带的节设置：

library(officer)
library(magrittr)

# 按原逻辑生成两个临时分栏文档
str1 <- "Lorem ipsum dolor sit amet, consectetur adipiscing elit."
str1 <- rep(str1, 20)
str1 <- paste(str1, collapse = " ")

x <- read_docx()
x <- body_add_par(x, str1, style = "Normal") %>% 
  body_end_section_columns(widths = c(3, 3), space = 0, sep = FALSE)
print(x, target = "tmp1.docx")

x <- read_docx()
x <- body_add_par(x, str1, style = "Normal") %>% 
  body_end_section_columns(widths = c(3, 3), space = 0, sep = FALSE)
print(x, target = "tmp2.docx")

# 合并时手动为插入的内容补设分栏节属性
final_doc <- read_docx(path = "tmp1.docx") %>% 
  body_add_docx(src = "tmp2.docx") %>% 
  body_end_section_columns(widths = c(3, 3), space = 0, sep = FALSE)

print(final_doc, target = "final.docx")

注意点 #

• Word里分栏、页边距、纸张方向、差异化页眉页脚这类设置全部绑定在「节」对象上，body_add_docx()不会携带外部文件的节属性，这是函数的既定设计，不属于bug。
• 不要用body_add_break()添加的普通分页符分隔不同分栏块：普通分页符不会拆分节结构，前后内容会共享同一套节格式，必然出现格式覆盖问题。body_end_section_*系列函数在结束节时会自动插入分节符，自带分页效果，额外加break反而会生成多余空白页。

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