## Not run:
#
# # create table
# tab <- table(op=d.pizza$operator, area=d.pizza$area)
#
# # send it to Word
# wrd <- GetNewWrd()
# wtab <- ToWrd(tab, wrd=wrd, tablestyle = NA)
#
# # draw borders
# WrdTableBorders(wtab, from=c(2,2), to=c(3,3), border=wdConst$wdBorderBottom, wrd=wrd)
# WrdTableBorders(wtab, from=c(2,2), to=c(3,3), border=wdConst$wdBorderDiagonalUp, wrd=wrd)
# ## End(Not run)
Run the code above in your browser using DataLab