powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Word (макрос) - предложение сохранить без ошибки
5 сообщений из 5, страница 1 из 1
Word (макрос) - предложение сохранить без ошибки
    #38308950
another word
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Обрабатываю read-only файлы DOC. Записал макрос, назначил на кнопку. Открываю документ > нажимаю кнопку макроса > жму "Сохранить" > задаю имя > сохраняю > перехожу к следующему.
Спустя время, в конце макроса, чтобы не нажимать постоянно "Сохранить", добавил строку "ActiveDocument.Save". Типа, решил так сэкономить 1 клик (файлов - тьма, поэтому экономия очень даже реальна). Макрос отрабатывает на ура, потом предлагает сразу окно сохранения (где я могу задать файлу своё произвольное имя), но после сохранения выдаёт ошибку (см. вложение). Ошибка, конечно, некритичная, но 1 мой клик, сэкономленный на нажатии кнопки "Сохранить" тратится на нажатие кнопки "End". Как можно побороть это?
...
Рейтинг: 0 / 0
Word (макрос) - предложение сохранить без ошибки
    #38308964
another word
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вот я тормоз! Надо было вместо "ActiveDocument.Save" просто прописать "Application.Quit".


Спасибо, вопрос закрыт.
...
Рейтинг: 0 / 0
Word (макрос) - предложение сохранить без ошибки
    #38309045
another word
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Нет, я поспешил. У меня выходит диалог с вопросом "Вы хотите сохранить... ?". А можно ли сразу прописать в макросе нажатие кнопку "Сохранить"?
...
Рейтинг: 0 / 0
Word (макрос) - предложение сохранить без ошибки
    #38309057
Maxim12345678
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
another wordНет, я поспешил. У меня выходит диалог с вопросом "Вы хотите сохранить... ?". А можно ли сразу прописать в макросе нажатие кнопку "Сохранить"?

Привет. Попробуй так
Код: vbnet
1.
b.Close savechanges:=True



Где b - один из открываемых файлов
...
Рейтинг: 0 / 0
Word (макрос) - предложение сохранить без ошибки
    #38314591
another word
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: vbnet
1.
2.
3.
4.
5.
6.
Sub mymacro()
    ...

    ActiveDocument.Close savechanges:=True
    Application.Quit
End Sub



Вот с таким кодом мне вылетает диалог сохранения файла, где я сразу могу задать произвольное имя своему файлу.
Но после нажатия "Сохранить" и закрытия диалога вылетает ошибка '5155':
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Word (макрос) - предложение сохранить без ошибки
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]