从导入的文本文件中为单词着色，并保存为格式化的 Word 文档答案

【问题标题】：Color a word from imported text file, and save as formatted word document从导入的文本文件中为单词着色，并保存为格式化的 Word 文档
【发布时间】：2023-03-13 03:58:01
【问题描述】：

我正在尝试为一组单词着色，例如使用 R 中的官员包从导入的 word 文档中的 word1 和 word2。我现在在设置单词的文本属性后被卡住了。

我使用read_docx(filename) 读取了数据文件，其中文件名是一个txt 文件。我还使用fp_text() 和ftext() 设置了文本属性。

my_doc <- read_docx(file.path(filepath,myfile)) 

color1 <- fp_text(color = "blue", font.size = 10, bold = FALSE,
        italic = FALSE, underlined = FALSE, font.family = "Arial",
        vertical.align = "baseline", shading.color = "transparent")
ftext("word1", color1)
color2 <- fp_text(color = "red", font.size = 10, bold = FALSE,
        italic = FALSE, underlined = FALSE, font.family = "Arial",
        vertical.align = "baseline", shading.color = "transparent")
ftext("word2", color1)

但是，如果我的文本类似于This is my text. word1 should be colored blue, and word2 should be colored red，如何将文本中的单词设置为颜色，以及如何将其保存到应用颜色的格式化word文档中？

【问题讨论】：

标签： r officer

【解决方案1】：

你是这个意思吗？

color1 <- fp_text(color = "blue", font.size = 10, bold = FALSE,
        italic = FALSE, underlined = FALSE, font.family = "Arial",
        vertical.align = "baseline", shading.color = "transparent")
ftext("word1", color1)
color2 <- fp_text(color = "red", font.size = 10, bold = FALSE,
        italic = FALSE, underlined = FALSE, font.family = "Arial",
        vertical.align = "baseline", shading.color = "transparent")
ftext("word2", color2)


fpar_1 <- fpar(ftext("word1", color1), "?")
fpar_2 <- fpar(ftext("word2", color2), "?")

my_doc <- read_docx() %>%
body_add_fpar(fpar_1) %>%
body_add_fpar(fpar_2)

【讨论】：