# NOT RUN {
# Windows-specific example
wrd <- GetNewWrd()
for(i in seq(10, 24, 2))
ToWrd(gettextf("This is Arial size <!-- %s \n", i), font=list(name="Arial", size=i)) -->
for(i in seq(10, 24, 2))
ToWrd(gettextf("This is Times size <!-- %s \n", i), font=list(name="Times", size=i)) -->
# }
Run the code above in your browser using DataLab