我有一個rdocx并且我想在 xml 代碼中操作一些東西。那是我的檔案：
library(officer)
doc <- read_docx() %>%
body_add_par("centered text", style = "centered") %>%
slip_in_seqfield("STYLEREF 1 \\s") %>%
slip_in_text("\u2011") %>%
slip_in_seqfield(sprintf("SEQ %s \\* ARABIC \\s 1", "Table")) %>%
slip_in_text(str_c(": ", "My Caption")) %>%
body_bookmark("my_bookmark")
有了我可以得到帶有類和doc$doc_obj$get().xml 的 xml 代碼。現在我想替換一些代碼，詳細地說我希望稍后出現的部分，以便書簽部分變得更大。我怎樣才能做到這一點？如果我能做到這一點，那就太棒了。xml_documentxml_nodew:bookmarkEndstr_replace
uj5u.com熱心網友回復：
您可以run_bookmark()在以下示例中使用（手冊未說明支持串列，我將盡快添加該資訊）：
library(officer)
bkm <- run_bookmark(
bkm = "test",
list(
run_word_field(field = "SEQ tab \\* ARABIC \\s"),
ftext(" Table", prop = fp_text_lite(color = "red"))
)
)
doc <- read_docx()
doc <- body_add_fpar(
x = doc,
value = fpar(bkm)
)
# how to make a reference to the bkm
doc <- body_add_fpar(
x = doc,
value = fpar(run_reference("test"))
)
print(doc, "zz.docx")
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/484394.html
上一篇：如何使用XSLT注釋掉特定元素