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

Автор Firetol, 07 июня 2018, 18:17

Firetol


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

Макрос
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
[свернуть]