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

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

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

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

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

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

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, спасибо за участие!)

@Ципихович Эндрю 1591 / 558 / 74 Регистрация: 10.04.2009 Сообщений: 9,105
		1
	Закрыть документ программно 18.11.2016, 09:28. Показов 3956. Ответов 12 Метки нет (Все метки) close - закрываем документ, но как бы Ворд висит, как бы закрыть документ по настоящему, как кликнул бы мышью в правый верхний крестик? спасибо 0

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

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

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

~~Shersh~~ Заблокирован
	10.12.2016, 06:32	6
	Сообщение от iam_alex Application.Quit вставляю КУДА? Сообщение от iam_alex вылазит ругательное окно VBA КАКОЕ? На какой строке? 0

@iam_alex 0 / 0 / 0 Регистрация: 10.06.2016 Сообщений: 15
	10.12.2016, 06:50	9
	Что такое STOP 'ДАЛЕЕ ИДЕМ ПО [F8] Добавлено через 21 секунду Сообщение от Shersh Из какого приложения работаете с документом? Из Word..... 0

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

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

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

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