if (FALSE) # 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)
)
Run the code above in your browser using DataLab