VBA Макросы: Как обратиться к Word из Excel?

[Firetol]

Как использовать Word из Excel?

[Администратор]

Макрос

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

[свернуть]