## Not run:
# wdGet()
# wdTitle("Title",paragraph=FALSE)
# wdGetProperty(c("Font","Name"))
# wdGetProperty(c("Font","Size"))
# wdParagraph()
# wdWrite("This is in normal font")
# wdGetProperty(c("Font","Name"))
# wdGetProperty(c("Font","Size"))
# ## End(Not run)
Run the code above in your browser using DataLab