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")

Option Explicit

'при раннем связывании надо сначала подключить соответствующую библиотеку в референсах
'Проект > Ссылки > Microsoft Word 11.0 Object Library > выбрать > ОК
'объявляем глобально для видимости во всём проекте
Dim objWord As Word.Application
Dim objDoc As Word.Document

Sub Main()

On Error GoTo Notloaded
 
'Проверка на открытие WORD'а
    Set objDoc = GetObject(, " Word.Application")
 
Notloaded:
'Если Word не открыт
 If Err.Number = 429 Then
'Открытие WORD'а
Set objDoc = CreateObject("Word.Application")
End If
         
    objDoc.ScreenUpdating = False

    MsgBox$ objDoc.Fields.Count
        
    objDoc.ScreenUpdating = True

End Sub

Set objDoc = CreateObject("Word.Application")

Option Explicit

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

Sub Main()

Set objWordApplicationActiveDocument = GetObject(, "Word.Application").ActiveDocument
 
    'objWordApplicationActiveDocument.ScreenUpdating = False

    MsgBox$ objWordApplicationActiveDocument.Fields.Count
        
    'objWordApplicationActiveDocument.ScreenUpdating = True

End Sub

Option Explicit
 
'при раннем связывании надо сначала подключить соответствующую библиотеку в референсах
'Проект > Ссылки > Microsoft Word 11.0 Object Library > выбрать > ОК
'иначе получим ошибку "Определяемый пользователем тип не определен"
'объявляем глобально для видимости во всём проекте
Dim objWordApplication As Word.Application
Dim objWordDocument As Object
Dim objWordActiveDocument As Object
 
Sub Main()
 
On Error Resume Next
 
 Set objWordApplication = Word.Application
 If Err.Number <> 0 Then Set objWordApplication = Nothing: Exit Sub
 Set objWordDocument = GetObject(, "Word.Application")
 If objWordDocument.Documents.Count = 0 Then
     MsgBox$ "Количество открытых WordDocument'ов - 0"
     objWordDocument.Quit
     Exit Sub
     End If
 If Err.Number <> 0 Then Set objWordDocument = Nothing: Exit Sub
 Set objWordActiveDocument = objWordDocument.ActiveDocument
 If Err.Number <> 0 Then Set objWordActiveDocument = Nothing: Exit Sub
 
    objWordDocument.ScreenUpdating = False
 
    MsgBox$ _
    "Количество открытых WordDocument'ов - " & objWordDocument.Documents.Count & " " & _
    "Активный WordDocument - " & objWordActiveDocument.Name
        
    objWordDocument.ScreenUpdating = True
    
End Sub

On Error Resume Next '- говорю при ошибке двигайся дальше
Set objWordApplication = Word.Application '- предполагаю, что здесь возможна ошибка
If Err.Number <> 0 Then Set objWordApplication = Nothing: Exit Sub '- иначе как бы он сюда дошёл?

Option Explicit
 
'при раннем связывании надо сначала подключить соответствующую библиотеку в референсах
'Проект > Ссылки > Microsoft Word 11.0 Object Library > выбрать > ОК
'иначе получим ошибку "Определяемый пользователем тип не определен"
'объявляем глобально для видимости во всём проекте
Dim objWordApplication As Word.Application
Dim objWordActiveDocument As Object
 
Sub Main()
 
On Error Resume Next
 
 Set objWordApplication = Word.Application
 If Err.Number <> 0 Then Set objWordApplication = Nothing: Beep: Exit Sub
 If objWordApplication.Documents.Count = 0 Then
     MsgBox$ "Количество открытых Word Document'ов - 0"
     objWordApplication.Quit
     Exit Sub
     End If
 Set objWordActiveDocument = objWordApplication.ActiveDocument
 If Err.Number <> 0 Then Set objWordActiveDocument = Nothing: Beep: Exit Sub
 
    objWordApplication.ScreenUpdating = False
 
    MsgBox$ _
    "Количество открытых Word Document'ов - " & objWordApplication.Documents.Count & " " & _
    "Активный WordDocument - " & objWordActiveDocument.Name
        
    objWordApplication.ScreenUpdating = True
    
End Sub

ActiveDocument.Close False