r - 使用官员将图像添加到文本框

Question

我正在考虑使用 officer 将图像添加到 Word 文档中包裹。 word文档模板如下所示:

这些都是文本框，我可以替换所有文本，例如学生姓名、注册号等，但不知道如何将图像添加到名为 picture 的文本框中。 .这是我尝试过的:

my_doc <- read_docx('templates/form_101.docx') %>% 
  body_replace_all_text('Coursename', 'NTCC 01') %>% 
  body_replace_all_text('XXX', 'III') %>% 
  body_replace_all_text('FromDate', '26 Oct') %>% 
  body_replace_all_text('ToDate', '02 Nov 20') %>% 
  body_replace_all_text('StudentName', 'Dhiraj Khanna') %>% 
  body_replace_all_text('12345', '51511-W') %>% 
  body_replace_all_text('ABC', 'A') %>% 
  cursor_reach('picture') %>% 
  # cursor_reach('picture') %>% 
  # body_remove()
  # body_bookmark('picture') %>%
  # body_replace_img_at_bkm('picture',
  #                         value = external_img(src = 'data/images/pic1.png', 
  #                                              width = .2, height = .2))
  body_add_img(src = 'data/images/pic1.png', width = .2, height = .2,
               pos = 'on')

print(my_doc, target = 'templates/output.docx')

这些方法(包括注释掉的方法)都没有给我想要的结果。那么如何在文本框中插入图像 picture .
模板可用 here

Answer 1

当您更改模板时，它会起作用。你需要

在您想要图像的位置创建一个新的文本字段

将图像放在文本字段中，使用位置“与文本一致”

在图像上放置书签(在我的示例中称为“图片”)

我上传了一个正确修改的文件 here .
然后您可以使用函数 body_replace_img_at_bkm()如下:

library(officer)
library(magrittr)

my_doc <- read_docx('form_101.docx')

my_doc %>%
  body_replace_img_at_bkm("picture",
                          external_img("im02.png", width = .9, height = .9)) %>%
  print("new_form.docx")