如何用R语言officer包在已有内容的Word文档开头添加文本？

核心问题分析 #

你之前的代码里cursor_begin(sample_doc)没有重新赋值给文档对象，officer采用函数式设计，所有修改操作都会返回新的文档对象，不会原地修改原对象，导致光标位置始终停留在文档末尾，新段落自然被追加到最后。

两种有效解决方案 #

方案一：正确使用光标定位

library(officer)
# 读取现有Word文档
sample_doc <- read_docx("inputfile.docx")
# 将光标移至文档开头，必须赋值保留修改
sample_doc <- cursor_begin(sample_doc)
# 在光标位置后添加段落（此时光标在开头，即插入到文档最前端）
sample_doc <- body_add_par(sample_doc, "This added paragraph1")
# 保存为新文档
print(sample_doc, target = "outputfile.docx")

方案二：直接指定插入位置（更简洁）

无需光标操作，直接通过pos=1指定将新段落插入到文档第一个元素之前，适用于所有段落数量的文档：

library(officer)
sample_doc <- read_docx("inputfile.docx")
# pos=1 表示插入到第一个body元素的前面，即文档最开头
sample_doc <- body_add_par(sample_doc, "This added paragraph1", pos = 1)
print(sample_doc, target = "outputfile.docx")

可选优化 #

如果需要让新段落匹配原文档的样式，可在body_add_par中添加style参数，比如原文档使用"Normal"样式：

sample_doc <- body_add_par(sample_doc, "This added paragraph1", pos = 1, style = "Normal")

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