0

我正在尝试在 Word 文档正文中的特定书签处添加一个 flextable。到目前为止，我找到了以下选项：

  • footers_flextable_at_bkm {flextable}
  • headers_flextable_at_bkm {flextable}
  • body_add_flextable {flextable}

但他们都没有完全满足我的需要。

我尝试编写自己的代码来执行此操作（见下文），但它说docx_str找不到该函数。（我从headers_flextable_at_bkm函数中处理/修改了这段代码）。有没有人有办法做到这一点？还是可以添加到 flextable 包中的功能？

body_flextable_at_bkm <- function(x, bookmark, value){

  stopifnot(inherits(x, "rdocx"), inherits(value, "flextable"))

  str <- docx_str(value, doc = x, align = "center")

  xml_elt <- as_xml_document(x)

  for(doc_obj in x$body){
    if( doc_obj$has_bookmark(bookmark) ){
       doc_obj$cursor_bookmark(bookmark)
       cursor_elt <- doc_obj$get_at_cursor()
       xml_replace(cursor_elt, xml_elt)
    }
  }
}
4

2 回答 2

2

这个函数应该做你需要的：

body_flextable_at_bkm <- function(x, bookmark, value){ x <- cursor_bookmark(x, bookmark) x <- body_add_flextable(x = x, value = value, pos = "on") x }

于 2018-10-01T07:53:20.227 回答
0

经过更多挖掘后，有一个解决方法，您可以set_curser(x, bookmarkID)在body_add_flextable(x, flextable)命令之前添加。

为了一致性，将它作为 flextable 包的一部分仍然很好，body_flextable_at_bkm因此它可以像headers_flextable_at_bkm和footers_flextable_at_bkm命令一样使用。

编辑：该body_flextable_at_bkm命令现在应该适用于最新版本的软件包。

于 2018-10-01T02:42:39.283 回答