# NOT RUN {
x <- read_docx()
x <- body_add_par(x, "Time is: ", style = "Normal")
x <- slip_in_seqfield(x,
str = "TIME \u005C@ \"HH:mm:ss\" \u005C* MERGEFORMAT",
style = 'strong')
x <- body_add_par(x, " - This is a figure title", style = "centered")
x <- slip_in_seqfield(x, str = "SEQ Figure \u005C* roman",
style = 'Default Paragraph Font', pos = "before")
x <- slip_in_text(x, "Figure: ", style = "strong", pos = "before")
x <- body_add_par(x, " - This is another figure title", style = "centered")
x <- slip_in_seqfield(x, str = "SEQ Figure \u005C* roman",
style = 'strong', pos = "before")
x <- slip_in_text(x, "Figure: ", style = "strong", pos = "before")
x <- body_add_par(x, "This is a symbol: ", style = "Normal")
x <- slip_in_text(x, str = "SYMBOL 100 \u005Cf Wingdings",
style = 'strong')
print(x, target = tempfile(fileext = ".docx"))
# }
Run the code above in your browser using DataLab