## Not run:    # Windows-specific example
# 
# m <- matrix(rnorm(12)*100, nrow=4,
#             dimnames=list(LETTERS[1:4], c("Variable","Value","Remark")))
# 
# wrd <- GetNewWrd()
# wt <- ToWrd(m)
# 
# WrdFormatCells(wt, rstart=c(3,1), rend=c(4,3),
#                bg=wdConst$wdColorGold, font=list(name="Arial Narrow", bold=TRUE),
#                align="c", border=list(color=wdConst$wdColorTeal,
#                                       linewidth=wdConst$wdLineWidth300pt))
# 
# ## End(Not run)
Run the code above in your browser using DataLab