Определяемый пользователем тип не определён (подключение к объекту Word.Application) - VB

Option Explicit
 
Public ObjectWord As Word.Application
 
Sub Main()
 
    Set ObjectWord = ThisDocument.Application
    
    ObjectWord.ScreenUpdating = False
 
    With ObjectWord.Selection.Fields(1).Code
        If .Text = "MACROBUTTON marr-not-marr marr" Then
            .Text = "MACROBUTTON marr-not-marr not marr"
        Else
            .Text = "MACROBUTTON marr-not-marr marr"
        End If
    End With
    
    ObjectWord.ScreenUpdating = True
 
End Sub