officer包0.4.4中slip_in_text()替代方案：如何在行尾追加文本？

可以实现行尾追加文本的需求，问题出在你误用了fpar()——它是用来创建完整段落的，默认会生成新行，并不适合用来在现有行末尾追加内容。替代原slip_in_text()的正确方式是用cursor_bookmark()定位后，调用body_add_run()来在同一段落内插入文本。

代码示例 #

假设你的Word模板中"Name: "后方设有书签"Begin"，执行以下代码即可得到"Name: John"的效果：

library(officer)

# 读取带书签的模板文档
doc <- read_docx("your_template.docx")

# 定位到书签"Begin"的位置
doc <- cursor_bookmark(doc, bookmark = "Begin")

# 在当前段落末尾追加文本，不会换行
doc <- body_add_run(doc, "John")

# 保存生成的文档
print(doc, target = "output.docx")

补充说明 #

fpar()的设计目标是构建包含多个格式元素的完整段落（比如混合字体、样式的段落），如果只是单纯追加普通文本，body_add_run()是更贴合需求的替代方案。如果需要给追加的文本设置格式，可以结合ftext()使用：

# 追加带格式的文本（比如加粗）
doc <- body_add_run(doc, ftext("John", bold = TRUE))

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