R语言将文件名写入word并批量合并word

问题：

有n个word文件，里面放有健康码截图，但使用人的姓名作为word的文件名出现，没有出现的文件内容中

要求：

将文件名作为内容写入相应的文件中，合并所有文件

解决方案

library(officer)
setwd("d:/docin")
(fl <- list.files(pattern = "doc"))
for (i in fl) {
   dt <- read_docx(i)
   df <- body_add_par(dt,i,style = "Normal")
   ds <-print(df,target = paste0("D:/docout/",i))
 }
ds <- read_docx()
setwd("d:/docout")
(fl <- list.files(pattern = "doc"))
for (i in fl) {
  ds <- body_add_docx(dt,i)
  
  }
ds <- print(ds,target = "a.docx")