## Not run: # Windows-specific example
# wrd <- GetNewWrd()
#
# # insert a title in level 1
# WrdCaption("My First Caption level 1", index=1, wrd=wrd)
#
# # works as well for several levels
# sapply(1:5, function(i)
# WrdCaption(gettextf("My First Caption level %s",i), index=i, wrd=wrd)
# )
# ## End(Not run)
Run the code above in your browser using DataLab