## Not run: # Windows-specific example
# # start word
# wrd <- GetNewWrd()
#
# for( i in seq(10, 24, 2)) {
# WrdText(gettextf("This is Arial size %s \n", i), appendCR=FALSE,
# fontname="Arial", fontsize=i)
# }
# for( i in seq(10, 24, 2)) {
# WrdText(gettextf("This is Times size %s \n", i), appendCR=FALSE,
# fontname="Times", fontsize=i)
# }
# ## End(Not run)
Run the code above in your browser using DataLab