The trouble is here:
Set objDoc = objWord.Documents.Open(DocPath)
I open the doc with a simiple link (the user clicks on the link, word opens
with the document).
When trying to close with objword.documents.close the is no
argument for the document name.