Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.07.2009, 19:33   #1
CaptainNemo
Пользователь
 
Аватар для CaptainNemo
 
Регистрация: 02.06.2009
Сообщений: 49
По умолчанию Как в Worde сделать DisplayAlerts=False

Добрый день, что-то не получается позакрывать все документы MS Word, что бы окна не выскакивали…
Поставил Application.DisplayAlerts = wdAlertsNone, начало окно «Сохранение документа появляется». Вот код:
Код:
Sub t2()
On Error Resume Next
For i = 1 To Documents.Count
Application.DisplayAlerts = wdAlertsNone
    Documents(i).Close
Next i
End Sub
Android & Linux
CaptainNemo вне форума Ответить с цитированием
Старый 14.07.2009, 19:50   #2
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

А ты укажи, что сохранять нужно или, наоборот, не нужно
Код:
Sub t2()
On Error Resume Next
For i = 1 To Documents.Count
Application.DisplayAlerts = wdAlertsNone
    Documents(i).Close False 'Не сохранять изменения
Next i
End Sub
Т.е., чтобы Word не задавал глупых вопросов, ему нужно дать ответ заранее.
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Старый 14.07.2009, 19:51   #3
CaptainNemo
Пользователь
 
Аватар для CaptainNemo
 
Регистрация: 02.06.2009
Сообщений: 49
По умолчанию

Спасибо, приблизительно так я себе это и представлял.

Всё равно что-то не получается правильно Word загасить. Хотел было проверить орфографию в TexBox вот так вот:

Код:
Private Sub txtMy_Change()
    Call zzz
End Sub

Sub zzz()
Dim myWord As Document
Set myWord = Documents.Add()
    myWord.Content = frmMy.txtMy
    myWord.CheckSpelling
    frmMy.txtMy = myWord.Content
    myWord.Close False
Set myWord = Nothing
End Sub
По моей задумке Check Speller должен был при первом изменении в TextBox выскочить и в нём можно было набрать что надо. Но документы не закрываются, не понятно, почему…
Вложения
Тип файла: doc Test.doc (37.5 Кб, 15 просмотров)
Android & Linux

Последний раз редактировалось Вадим Мошев; 26.08.2015 в 16:36.
CaptainNemo вне форума Ответить с цитированием
Старый 21.08.2015, 14:30   #4
Eleonora_
Новичок
Джуниор
 
Регистрация: 21.08.2015
Сообщений: 2
По умолчанию

Спасибо за помощь
Eleonora_ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Управление печатью в Worde Busine2009 Общие вопросы Delphi 0 04.06.2009 20:18
Как в Worde, но без Word VladimirVB Общие вопросы Delphi 2 21.04.2009 00:52
Изображение на кнопке в состоянии Enabled=False SibBear Общие вопросы Delphi 2 25.03.2009 17:14
Form2.sSkinManager1.Action := false; beegl Компоненты Delphi 2 17.06.2008 17:05
Проверка (True or False for CheckBox) NeiL Общие вопросы Delphi 5 31.01.2008 09:42