Close Word and remove the handle.
wdQuit(wdapp = .R2wd)
wdapp
This closes Word. Word may ask back whether you wish to save the graph.
## Not run: wdGet() wdQuit() ## End(Not run)