Макрос
Sub Макрос()
Dim WordApp As Object
' Запускаем программу "Word" и присваиваем ей имя "WordApp".
' Далее в коде будем работать с вордом, используя имя "WordApp".
Set WordApp = CreateObject(Class:="Word.Application")
' Действия в ворде. Например вывод в View - Immediate Window количества открытых ворд-документов.
Debug.Print WordApp.documents.Count
' Закрытие программы "Word".
WordApp.Quit
End Sub