Word 文档段落内的格式化箭头

想使用官员向 Word 文档段落添加箭头。过去只能使用 body_add_par 将它们粘贴到段落中。拼写检查在生成的文档中不起作用。设法让拼写检查工作。不太确定我是如何做到的。也许是我在进行了一些互联网搜索后尝试过的事情之一。也可能是 IT 软件更新的产物。在我进行拼写检查后，我不能再只粘贴箭头了。

尝试使用编程添加箭头已失败。认为代码可能会看起来像下面这样。不知道我什至是否有正确的功能。slip_in_seqfield 中的第一个有效。认为这可能是解决方案的基础。第二个slip_in_seqfield 是在第一个之后建模的，但不起作用。我尝试过的所有变体都没有。不知道为什么。感觉它会起作用。

如果有人知道如何做到这一点，我将不胜感激。

谢谢。

 > sessionInfo()

R version 3.6.0 (2019-04-26)

Platform: x86_64-w64-mingw32/x64 (64-bit)

Running under: Windows Server 2008 x64 (build 6003) Service Pack 2



Matrix products: default



locale:

[1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United States.1252    LC_MONETARY=English_United States.1252

[4] LC_NUMERIC=C                           LC_TIME=English_United States.1252   



attached base packages:

[1] stats     graphics  grDevices utils     datasets  methods   base    



other attached packages:

[1] sessioninfo_1.1.1 flextable_0.5.4   reshape2_1.4.3    stringr_1.4.0     tibble_2.1.3      devEMF_3.6-2    

 [7] survminer_0.4.4   ggpubr_0.2        ggplot2_3.1.1     survival_2.44-1.1 dplyr_0.8.1       magrittr_1.5    

[13] officer_0.3.4   



loaded via a namespace (and not attached):

[1] zoo_1.8-6         tidyselect_0.2.5  xfun_0.7          purrr_0.3.2       splines_3.6.0     lattice_0.20-38 

 [7] colorspace_1.4-1  generics_0.0.2    htmltools_0.3.6   yaml_2.2.0        base64enc_0.1-3   survMisc_0.5.5  

[13] rlang_0.3.4       pillar_1.4.1      glue_1.3.1        withr_2.1.2       gdtools_0.1.8     uuid_0.1-2      

[19] plyr_1.8.4        munsell_0.5.0     gtable_0.3.0      zip_2.0.2         evaluate_0.14     knitr_1.23      

[25] broom_0.5.2       Rcpp_1.0.1        xtable_1.8-4      scales_1.0.0      backports_1.1.4   cmprsk_2.2-8    

[31] km.ci_0.5-2       gridExtra_2.3     digest_0.6.19     stringi_1.4.3     KMsurv_0.1-5      grid_3.6.0      

[37] cli_1.1.0         tools_3.6.0       lazyeval_0.2.2    crayon_1.3.4      tidyr_0.8.3       pkgconfig_2.0.2 

[43] Matrix_1.2-17     data.table_1.12.2 xml2_1.2.0        assertthat_0.2.1  rmarkdown_1.13    rstudioapi_0.10 

[49] R6_2.4.0          nlme_3.1-140      compiler_3.6.0  

library(officer)
library(magrittr)

read_docx() %>%
body_add_fpar(
    fpar(
      "This is a test paragraph with a proper ",
      "\u2B62",
      " (arrow).")
) %>%
slip_in_seqfield(str = "SYMBOL 100 \u005Cf Wingdings") %>%
slip_in_seqfield(str = "SYMBOL 34 \u2B62 Wingdings 3") %>%
print(target = "output.docx")