Copy the code into Word in a format

[Comede_way]

Hello, everyone
How do I preserve the formatting of the repeatable code from reprex::reprex() and copy it into Word? like the belowing code's format(color,size,and others). Is it possible？Thank you for your help in advance.

@Comede_way

a1 <- c(16.6,1.0,10.1,8.6,8.0,17.0,2.4,7.6,5.7,11.6,3.6,2.8,6.3,1.5,2.7,16.7,6.7,5.3,12.5)
bins <- seq(min(a1), max(a1) + 3, by = 3)
a1_bin <- cut(a1, bins, right = FALSE, labels = FALSE)
hist(a1_bin, breaks = length(bins)+1, main = "count plot", xlab = "range", ylab = "count")
M<-mean(a1)
s<-sd(a1)
x<-bins
y<-dnorm(bins,M,s)
lines(x,3*19*y)

[Timesaver]

In the quarto document, change the format to docx and render the document. You will get a word document with the code. You can edit the word file or copy the code to another word document.