打开之前检查单词文档是否打开

我有一个基本的macros，打开一个Word文档，这工作得很好。 但是，如果文档已经打开，则会加载一个新的“只读”版本。 有没有办法来检查文档是否已经打开，如果是这样，切换到它而不是打开一个新的副本。

Sub Open_Word_Document() Dim objWord As Object Set objWord = CreateObject("Word.Application") objWord.Visible = True objWord.Documents.Open Filename:=ThisWorkbook.Path & "\template.docx" End Sub 

编辑：这已被编辑，以表明这个问题已经回答，但作为意见状态build议的问题是指一个不同的MS应用程序。