Проверка, открыт ли Ворд

Set wd = New Word.Application
Set wdDoc = wd.Documents.Open _
(ThisWorkbook.Path & "" & "Акт.docm")
wd.Visible = True

Function FileInWordOpen(DokName As String) As Boolean
Dim wd
wd = CreateObject("Word.Application")
Dim wDoc
wDoc = CreateObject("Word.Document")
 
Dim i As Long, s As String
On Error Resume Next
Set wd = GetObject(, "Word.Application")
On Error GoTo NO_WORD_FOUND
If wd Is Nothing Then
    FileInWordOpen = False
End If
For i = 1 To wd.Documents.Count
  s = wd.Documents(i)
  If InStr(DokName, s) <> 0 Then
     FileInWordOpen = True
     Exit Function
  End If
Next
 
NO_WORD_FOUND:
 
 FileInWordOpen = False
 
 End Function
Sub testdocopened()
Debug.Print FileInWordOpen("test.docx")
End Sub

Function IsBookOpen(wbFullName As String) As Boolean
    On Error Resume Next
    Open wbFullName For Random Access Read Write Lock Read Write As 1
    close 1
    IsBookOpen = Err
End Function