Закрыть документ программно

@Ципихович Эндрю · Регистрация: 10.04.2009

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

close - закрываем документ, но как бы Ворд висит, как бы закрыть документ по настоящему, как кликнул бы мышью в правый верхний крестик? спасибо

@korvindeson · 18.11.2016, 09:44

Application.Quit

@Ципихович Эндрю · 18.11.2016, 09:59 **[ТС]**

в этом случае он закрывает все документы Ворд, а нужно 1 - там где сработал макрос на закрытие

@korvindeson · 18.11.2016, 11:10

Неправильно понял, значит ActiveWindow.Close

@iam_alex · 10.12.2016, 06:10

Друзья! Имею макрос:

Visual Basic
1
2
3
4
5
6
7
8
9
Sub FinishJob()
    Dim objDoc As Word.Document: Application.ScreenUpdating = False
    For Each objDoc In Application.Documents
        If objDoc.Windows(1).Visible = True Then
            ' закрываем с сохранением только изменённые файлы
            objDoc.Close (Not objDoc.Saved) ' ранее сохранённые файлы просто закрываются
        End If
    Next objDoc
End Sub

Что нужно добавить, чтобы в итоге еще и Word закрылся? Если Application.Quit вставляю - вылазит ругательное окно VBA. Может неправильно вставляю?))

Shersh · 10.12.2016, 06:32

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

Application.Quit вставляю

КУДА?

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

вылазит ругательное окно VBA

КАКОЕ? На какой строке?

@iam_alex · 10.12.2016, 06:43

Переформулирую.
Имею макрос:

Visual Basic
1
2
3
4
5
6
7
8
9
Sub FinishJob()
    Dim objDoc As Word.Document: Application.ScreenUpdating = False
    For Each objDoc In Application.Documents
        If objDoc.Windows(1).Visible = True Then
            ' закрываем с сохранением только изменённые файлы
            objDoc.Close (Not objDoc.Saved) ' ранее сохранённые файлы просто закрываются
        End If
    Next objDoc
End Sub

Подскажите, пожалуйста, какую строку и куда необходимо добавить, чтобы в итоге программа Word тоже закрывалась. Спасибо.

Shersh · 10.12.2016, 06:49

Вспоминайте, исправьте код, следуйте инструкции (3-я строка)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub FinishJob()
 
    STOP 'ДАЛЕЕ ИДЕМ ПО [F8]
 
    Dim objDoc As Word.Document: Application.ScreenUpdating = False
    For Each objDoc In Application.Documents
        If objDoc.Windows(1).Visible = True Then
            ' закрываем с сохранением только изменённые файлы
            objDoc.Close (Not objDoc.Saved) ' ранее сохранённые файлы просто закрываются
        End If
    Next objDoc
 
              Application.Quit
 
End Sub

Добавлено через 4 минуты
iam_alex, Из какого приложения работаете с документом?

@iam_alex · 10.12.2016, 06:50

Что такое STOP 'ДАЛЕЕ ИДЕМ ПО [F8]

Добавлено через 21 секунду

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

Из какого приложения работаете с документом?

Из Word.....

Shersh · 10.12.2016, 06:51

Это код, останавливающий макрос для отладки (после апострофа - примечание(инструкция))

@iam_alex · 10.12.2016, 06:56

открыл Word, два документа, открыл редактор VB, по F8 прошелся - документы закрылись, Word закрылся. Если вызываю макрос с кнопки - документы закрываются, но Word нет и вылазит окошко VBA с красным крестиком без текста

Shersh · 10.12.2016, 07:01

Приложите документ с макросом и кнопкой (скрепка справа в верхней строке меню)
Заархивируйте при необходимости.

@iam_alex · 10.12.2016, 07:23

После слов "приложите документ" до меня дошло)) Код был прописан в Normal.dot не модулем а прямо в Word Objects - ThisDocument))) Теперь все работает.

Добавлено через 13 минут
Shersh, спасибо за участие!)

Новые блоги и статьи Все статьи Все блоги /
WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Old Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .

@Ципихович Эндрю 1711 / 578 / 76 Регистрация: 10.04.2009 Сообщений: 9,300

	Закрыть документ программно 18.11.2016, 09:28. Показов 4489. Ответов 12 Метки нет (Все метки) close - закрываем документ, но как бы Ворд висит, как бы закрыть документ по настоящему, как кликнул бы мышью в правый верхний крестик? спасибо 0

@korvindeson 1261 / 147 / 32 Регистрация: 11.02.2011 Сообщений: 418
	18.11.2016, 09:44
	Application.Quit 0

@Ципихович Эндрю 1711 / 578 / 76 Регистрация: 10.04.2009 Сообщений: 9,300
	18.11.2016, 09:59 [ТС]
	в этом случае он закрывает все документы Ворд, а нужно 1 - там где сработал макрос на закрытие 0

@korvindeson 1261 / 147 / 32 Регистрация: 11.02.2011 Сообщений: 418
	18.11.2016, 11:10
	Неправильно понял, значит ActiveWindow.Close 0

Shersh Заблокирован
	10.12.2016, 06:51
	Это код, останавливающий макрос для отладки (после апострофа - примечание(инструкция)) 0

@iam_alex 0 / 0 / 0 Регистрация: 10.06.2016 Сообщений: 15
	10.12.2016, 06:56
	открыл Word, два документа, открыл редактор VB, по F8 прошелся - документы закрылись, Word закрылся. Если вызываю макрос с кнопки - документы закрываются, но Word нет и вылазит окошко VBA с красным крестиком без текста 0

Shersh Заблокирован
	10.12.2016, 07:01
	Приложите документ с макросом и кнопкой (скрепка справа в верхней строке меню) Заархивируйте при необходимости. 0

@iam_alex 0 / 0 / 0 Регистрация: 10.06.2016 Сообщений: 15
	10.12.2016, 07:23
	После слов "приложите документ" до меня дошло)) Код был прописан в Normal.dot не модулем а прямо в Word Objects - ThisDocument))) Теперь все работает. Добавлено через 13 минут Shersh, спасибо за участие!) 0