主页 / coding / 问题 / 79597170
Accepted
js4032
Asked: 2025-04-29 03:28:53 +0800 CST

使用 R 中的 officer 超链接到 Word 文档中的标题

  • 772

我希望生成包含指向同一文档中其他位置的链接的Word文档，例如，如果某个图表在其他地方的文本中被引用。以下是我希望实现的一个简单示例：

library(officer)
library(dplyr)

doc <- read_docx() %>%
  body_add_par('1. Introduction', style = 'heading 1') %>%
  # hyperlink_ftext() %>% # I want to link this to Figure 1
  body_add_par('Figure 1', style = 'heading 2')

print(doc, target = 'test.docx')

href我可以在参数中传递一些东西hyperlink_ftext来实现这一点吗？如果没有，还有其他方法可以实现吗？

注意：这篇文章似乎讨论的是同一件事，但一直没有得到任何回复。我在 Github 软件包页面上也没有看到任何相关的帖子。PowerPointph_slidelink中有内部链接的例子，但我找到的所有 Word 示例都是 URL 的例子。

1 个回答

  1. Best Answer

    总的来说hyperlink_ftext，这是可行的方法。但在查看了文档、源代码并做了一些实验之后，我认为目前只支持外部链接。

    不过，只要对 OOXML 及其内部机制有所了解，officer实现内部链接并不难。下面我创建了一个body_add_par_hyperlink函数，它基本上就是复制粘贴的，body_add_par但多了一个anchor=参数来添加内部链接。

    注意：此外，我们还必须添加书签作为内部链接的目标。

    library(officer)

body_add_par_hyperlink <- function(x,
                                   value,
                                   anchor,
                                   style = NULL,
                                   pos = "after") {
  if (is.null(style)) {
    style <- x$default_styles$paragraph
  }

  style_id <- officer:::get_style_id(data = x$styles, style = style, type = "paragraph")

  xml_elt <- paste0(
    officer:::wp_ns_yes,
    "<w:pPr><w:pStyle w:val=\"", style_id, "\"/></w:pPr>",
    "<w:hyperlink w:anchor=\"", anchor, "\">",
    "<w:r><w:t xml:space=\"preserve\">",
    officer:::htmlEscapeCopy(value),
    "</w:t></w:r></w:hyperlink></w:p>"
  )
  body_add_xml(x = x, str = xml_elt, pos = pos)
}

doc <- read_docx() |>
  body_add_par_hyperlink(
    "Introduction",
    style = "heading 1", 
    anchor = "figure1"
  ) |>
  body_add_par("Figure 1", style = "heading 2") |>
  body_bookmark("figure1")

print(doc, target = "test.docx")
    • 3

相关问题