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

Question

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

这些都是文本框，我可以替换所有文本，例如 StudentName、Enrollment number 等，但不知道如何将图像添加到名为 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

我试了一下，但无法正常工作（只是在这里分享我的发现，因为它们太长了无法发表评论，也许它们可以帮助你）

我的实际结论是，这可能根本不起作用，并且不受 officer 包的支持。

在您分享的示例中，我手动添加了“图片”，因为它在您的屏幕截图中（但在您的单词示例中缺失）。但即使有了这种简化（更容易设置光标），它也不起作用。

我尝试了body_add_img、slip_in_img、body_replace_img_at_bkm、body_add.external_img、body_replace_text_at_bkm 和cursor_reach('picture')、cursor_forward、cursor_backward 调用的几种组合。 （以及其他一些相当粗略的努力）

它要么什么都不做，要么只是没有将图像放入文本框中。

设置光标似乎有效。通常添加图像也不是问题。用文本框中的另一个文本替换文本是没有问题的。但是在右侧的这个特定文本框中添加图像似乎是不可能的。

当我将光标放在文本框中并尝试在其中添加图像时，无论我尝试什么，它总是在文本框之前或之后添加。

Answer 2

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

1. 在您想要图像的位置创建一个新文本字段
2. 将图像放在文本字段中，使用位置“与文本一致”
3. 在图片上放置书签（在我的示例中称为“图片”）

我已上传正确更改的文件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")