Закрытие всех документов без сохранения

[Окоча Юра]

У меня открыто 10 вордовских и екселевских документов, помогите создать макрос закрытия всех этих документов без сохранения изменений в них. Спасибо.

[viter.alex]

Для Word вот так

Sub CloseAll()
  Dim oDoc As Document
  For Each oDoc In Application.Documents
    oDoc.Close False
  Next
End Sub

для Excel почти аналогично.

[Sasha_Smirnov]

Чтобы тема была доступна через поиск (где задано не менее чем с 4-мя ответами!), внесу свою лепту, чисто эспериментальную.

Sub toShutAllWordDocs()
DoEvents

Shell "taskmgr", vbNormalNoFocus
Shell "taskmgr", vbNormalFocus
SendKeys "{W}"
SendKeys "{I}"
SendKeys "{N}"
SendKeys "{W}"
SendKeys "{O}"
SendKeys "{R}"
SendKeys "{D}", True

SendKeys "{tab}", True
SendKeys "{tab}", True

SendKeys "~", True 'аналог нажатия Enter, когда кнопка Завершить процесс в Диспетчере задач активна (в фокусе ввода)'
End Sub

Но это требует почему-то ручного нажатия кнопки, но всё же — одной! Аналогичный «фокус» возможен с любым VBA-приложением, но не проверял.

Также для развития темы, возможно, полезен и следующий пост.

[Окоча Юра]

А можно ли чтобы одним нажатием закрылись все вордовские и екселевские файлы без сохранения изменений.

[Sasha_Smirnov]

Alt-F4 попробуйте.

[Окоча Юра]

Всем спасибо.

[Окоча Юра]

Сообщение от viter.alex

Для Word вот так

Sub CloseAll()
  Dim oDoc As Document
  For Each oDoc In Application.Documents
    oDoc.Close False
  Next
End Sub

для Excel почти аналогично.

помогите, почему у меня не работает этот код...

[bdfy]

Application.Quit false
самый быстрый способ
если закрывать только документы останется окно самого Word например