Option Explicit


'код выделенного поля
Public SelectionFieldsCode As String

'Public - для видимости во всём проекте
Public ObjectWord As Object
Public ObjectOpenWord As Object
'

Sub Main()

    Set ObjectWord = GetObject(, "Word.Application")
    Set ObjectOpenWord = ObjectWord.ActiveDocument

    'отключаем дёргание экрана при выполнении кода
    ObjectWord.ScreenUpdating = False
        
    'код выделенного поля
        SelectionFieldsCode = Trim$(ObjectWord.Selection.Fields(1).Code)
        'код выделенного поля
        'MsgBox$ SelectionFieldsCode
        
        If SelectionFieldsCode = "MACROBUTTON Замужем_не_замужем замужем" Then
        ObjectWord.Selection.Fields(1).Code = "MACROBUTTON Замужем_не_замужем не замужем"
        Beep
        End If

    'отменяем отключенное ранее дёргание экрана при выполнении кода
    ObjectWord.ScreenUpdating = True

    'установка объекта в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта
    Set ObjectWord = Nothing
    Set ObjectOpenWord = Nothing

End Sub

ObjectOpenWord.Selection.Fields(1).Code = "MACROBUTTON Замужем_не_замужем не замужем"

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

'при раннем связывании надо сначала подключить соответствующую библиотеку в референсах
'Проект > Ссылки > Microsoft Office 11.0 Object Library > выбрать > ОК

Option Explicit
 
'при раннем связывании надо сначала подключить соответствующую библиотеку в референсах
'Проект > Ссылки > Microsoft Word 11.0 Object Library > выбрать > ОК
'объявляем глобально для видимости во всём проекте
Dim objWord As Word.Application
Dim objDoc As Word.Document
 
Sub Main()
 
    Set objWord = Word.Application
    Set objDoc = GetObject(, " Word.Application")
    
    objDoc.ScreenUpdating = False
 
    MsgBox$ objDoc.Fields.Count
        
    objDoc.ScreenUpdating = True
 
End Sub

Set objDoc = GetObject(, " Word.Application")