При помощи нижеприведенного макроса из Excel можно получить полный список имен открытых окон.
Принцип работы можно посмотреть в справке по Word
http://msdn.microsoft.com/ru-ru/library/ff822559.aspx#CommunityContent
'В файле использующем этот макрос - надо подключить Microsoft Word Object Library
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Sub Полный_список_окон_2()
Dim wordApp As Object
Dim mytask
Dim i As Integer
i = 2
'Открываем word
Set wordApp = CreateObject("Word.Application")
'перебираем в цикле ИЗ ВОРДА!!! имена открытых окон
For Each mytask In Tasks
'записываем в ячейку каждое имя
Sheets("Лист1").Cells(i, 1) = mytask.Name
i = i + 1
Next mytask
wordApp.Quit
Set wordApp = Nothing
End Sub
Обратил внимание, что данный макрос срабатывает не всегда.
Например, при помощи диспетчера закрываем ВСЕ процессы WINWORD.EXE... и начинается странное
Запускаем макрос - вылезает ошибка 462. Нажимаем End... запускаем по новой - все работает...
Опять удаляем все ВСЕ процессы WINWORD.EXE...
Пробуем проигнорировать ошибку On error resune next - не игнорируется... вылезает ошибка 462
Пробую обработать ошибку, в тайной надежде, что простой двоекратный запуск решит проблему...
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Sub Полный_список_окон_3()
Dim wordApp As Object
Dim mytask
Dim i As Integer
i = 2
On Error GoTo 1
'Открываем word
Set wordApp = CreateObject("Word.Application")
'перебираем в цикле ИЗ ВОРДА!!! имена открытых окон
For Each mytask In Tasks
'записываем в ячейку каждое имя
Sheets("Лист1").Cells(i, 1) = mytask.Name
i = i + 1
Next mytask
wordApp.Quit
Set wordApp = Nothing
Exit Sub
1
Exit Sub
End Sub
Ничего не получается. Как програмно обработать ошибку?
