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