Управление несколькими различными приложениями MS Office из одного макроса

@f5988497 · Регистрация: 10.10.2018

Author24 — интернет-сервис помощи студентам

Всем доброго времени суток! Заранее извиняюсь за нубский вопрос. В VB/VBS/VBA новичок. Подскажите, пожалуйста, возможно ли сделать что-то подобное:

Visual Basic

Sub test()
    If Application.Documents.Count >= 1 Then
        For Each oDocs In Application.Documents
            Select Case Application.Name
                Case "Microsoft Word"
                    MsgBox ("I'm from MS Word")
                Case "Microsoft Excel"
                    MsgBox ("I'm from MS Excel")
                Case "Microsoft PowerPoint"
                    MsgBox ("I'm from MS PowerPoint")
            End Select
        Next
    Else
        MsgBox "No documents are open"
    End If
End Sub

Т.е. открыты документы разных офисных приложений, поддерживающих VBA макросы. Код перебирает эти документы и в зависимости от приложения выполняет свою определенную часть.
Или для каждого приложения только свой VBA-макрос может выполняться?

@Казанский · 10.10.2018, 16:31

Сообщение от f5988497

открыты документы разных офисных приложений

Они открыты каждый в своем приложении. Чтобы добраться до документа, код сначала должен обратиться к приложению - в простейшем случае с помощью функции GetObject.
И коллекция документов в каждом приложении называется по-разному: Word - Documents, Excel - Workbooks, PowerPoint - Presentations.

@f5988497 · 12.10.2018, 07:32 **[ТС]**

Казанский, спасибо!

Visual Basic

1
2
3

    Set wApp = GetObject(, "Word.Application")
    Set xlApp = GetObject(, "Excel.Application")
    Set ppApp = GetObject(, "PowerPoint.Application")

Работает!)

@Казанский 15151 / 6424 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	10.10.2018, 16:31	2
	Сообщение от f5988497 открыты документы разных офисных приложений Они открыты каждый в своем приложении. Чтобы добраться до документа, код сначала должен обратиться к приложению - в простейшем случае с помощью функции GetObject. И коллекция документов в каждом приложении называется по-разному: Word - Documents, Excel - Workbooks, PowerPoint - Presentations. 1

	12.10.2018, 07:32