## Not run:  # Windows-specific example
# 
# wrd <- GetNewWrd()
# 
# for(i in seq(10, 24, 2))
#   ToWrd(gettextf("This is Arial size 
# 
# for(i in seq(10, 24, 2))
#   ToWrd(gettextf("This is Times size 
# ## End(Not run)Run the code above in your browser using DataLab