# NOT RUN {
x <- read_docx()
x <- body_add_par(x, "Hello ", style = "Normal")
x <- slip_in_text(x, "world", style = "strong")
x <- slip_in_text(x, "Message is", style = "strong", pos = "before")
x <- slip_in_text(x, "with a link", style = "strong",
pos = "after", hyperlink = "https://davidgohel.github.io/officer/")
print(x, target = tempfile(fileext = ".docx"))
# }
Run the code above in your browser using DataLab