## 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