Access Command to Close and Save a Word Document

[Guest]

How do you get Access to save an open word document and then close word?

 

[Guest]

Paste this procedure into a module and call it by supplying the full path of
the file you're trying to save and close.

eg) SaveAndCloseWord "c:\myfile.doc"


Sub SaveAndCloseWord(strPath As String)
Dim wapp As Word.Application
Dim wdoc As Word.Document
Set wdoc = GetObject(strPath)
Set wapp = wdoc.Parent
wdoc.Save
wdoc.Close
wapp.Quit
Set wdoc = Nothing
Set wapp = Nothing
End Sub