Check to see if word document is open before opening

Asked Jan 08 '15 at 10:08

Active Jan 22 '15 at 15:27

Viewed 5,328 times

I have a basic macro that opens up a word document, which works just fine. However if the document is already open then a new 'read-only' version is loaded. Is there a way to check if the document is already open, and if so switch to it rather than open a new copy.

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

EDIT: This has been edited to suggest this question is already answered, but as the comments state the suggested question is referring to a different MS Application.

edited Jan 22 '15 at 15:27

asked Jan 08 '15 at 10:08

Tim Wilkinson

3,761
11
34
62

The answer may be here, should be the same with word: http://stackoverflow.com/questions/9373082/detect-whether-excel-workbook-is-already-open-using-vba – Iralution Jan 08 '15 at 10:12
That seems Excel Workbook specific, I will try to see if it can check for Word Documents also. – Tim Wilkinson Jan 08 '15 at 10:15
I forgot that Word doesn't have workbooks. Maybe you should try this: http://support.microsoft.com/kb/209189/de – Iralution Jan 08 '15 at 10:22
Thats a good start thank you, now I need to work out why its throwing up `Error 70 - permission denied` – Tim Wilkinson Jan 08 '15 at 10:47
This should help: https://stackoverflow.com/questions/54039182/check-if-word-document-is-already-opened-error-handling – Akshay Shrivastav Jun 23 '20 at 13:22

Check to see if word document is open before opening

0 Answers0