主任-文字格式

Question

我正在尝试使用Officer更改段落的字体大小，但无法执行。谁能告诉我我在做什么错？

library(officer)
text_style <- fp_text(font.size = 12)

my_doc <- read_docx()
body_add_par(my_doc,"This is a test", style = text_style)
print(my_doc, target = "dummy.docx")

Answer 1

函数body_add_par()需要样式名称（取自原始文档中的样式名称）。

如果要添加由格式化的文本块组成的段落，则需要使用body_add_fpar()，如下所示。

library(officer)
text_style <- fp_text(font.size = 12)
par_style <- fp_par(text.align = "justify")
my_doc <- read_docx()
my_doc <- body_add_fpar(my_doc, fpar( ftext("This is a test", prop = text_style), fp_p = par_style ) )
print(my_doc, target = "dummy.docx")