如何用R的capture.output与officer包导出对齐的控制台输出至Word？

一、Word模板创建（核心是等宽字体，不影响现有设置） #

不用改Word全局设置，只做个专属模板文件：

• 新建空白Word文档，创建自定义样式（比如叫ConsoleStyle）：
  1. 字体选等宽字体（Consolas、Courier New都行）——这是对齐的关键，控制台输出用的就是等宽字体，Word默认字体是不等宽的，必然错位。
  2. 段落设置：取消首行缩进、设固定行距（比如12磅，和R控制台行高匹配）、取消自动换行（可选，按需调整）。
  3. 把文档另存为.docx模板（比如console_template.docx），放在你的R工作目录里就行。

二、用officer+broom导出时避免排版错位 #

直接调用自定义模板，把所有控制台输出绑定到你创建的等宽样式上：

library(officer)
library(broom)

# 加载自定义模板
doc <- read_docx("console_template.docx")

# 捕获要导出的控制台内容
console_content <- capture.output({
  # 这里放你要导出的R代码/结果，示例：
  head(mtcars)
  model <- lm(mpg ~ hp, data = mtcars)
  glance(model)
})

# 用自定义样式添加内容，保证对齐
doc <- body_add_par(doc, value = console_content, style = "ConsoleStyle")

# 导出到工作目录的Word文件
print(doc, target = "final_output.docx")

• 这样导出的内容和控制台排版完全一致，不用手动调整。

三、把临时文件"fn"存到工作目录 #

如果你的代码里用了tempfile()生成临时文件fn，直接指定工作目录路径就行：

# 直接在当前工作目录生成临时文件，后缀自己定
fn <- file.path(getwd(), "temp_output.txt")

# 写入控制台内容到这个临时文件
writeLines(console_content, fn)

# 用完不需要可以删掉
# file.remove(fn)

• 这样fn就不会跑到系统临时文件夹里，找起来更方便。

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