powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / закрыть файл програмно
25 сообщений из 223, страница 2 из 9
закрыть файл програмно
    #36724291
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
потому что мне вероятно нужна эта строка: If DocWord.Saved = False Then DocWord.Save
Это к вот этому:
сообщение от 05:32
И чтобы уже всё до конца мне выяснить еще подскажите, пожалуйста:
Я запускаю с шаблона файл, макросы Sub AutoNew() и Sub AutoOpen() имеются, их задача, проверить есть ли диск D, есть ли на нём определённая папка, если нет выдать сообщение. Например она есть, я открываю этот шаблон, получаю Документ1 и тут же ничего не делая его закрываю, у меня выдаётся сообщение, сохранить ли сохранения, но я же ничего не делал, как можно от этого сообщения избавитья?, может, что-то надо в AutoClose прописать. Вобще каков скрипт следующего условия, если в документе ничего не изменилось, то есть в него я ничего не вводил и с него ничего не удалял, тогда ...? Может я не правильно в этом условии высказался но смысл остаётся прежним, если пользователь ничего не сделал сам, тогда нечего у него и спрашивать. Спасибо.
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724293
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Проблема изложена выше.
Ты в AutoClose вызываешь закрытие документа, которое вновь вызывает AutoClose. А так как закрытие уже идет - возникает ошибка.
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724294
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ципихович Эндрюи тут же ничего не делая его закрываю
Ты закрываешь документ каким образом? Этого кода ты не приводил.
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724297
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro,
закрываю доумент, нажимая в правом верхнем углу красного цвета крестик. Этот код я гоняю, так как знаю, что после нажатия крестика мною он будет выполнятся автоматически
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724300
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
понял о чём Вы спрашиваете, а разве эта строка:
If DocWord.Saved = False Then DocWord.Save
Не для того чтобы начхать на всё что сделано?
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724301
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ципихович Эндрюзакрываю доумент, нажимая в правом верхнем углу красного цвета крестик.

Тогда тебе ничего кроме строчки сохранения не нужно. Не пытайся ничего закрывать дополнительно, оно и так находится в процессе закрытия.
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724303
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ципихович Эндрюпонял о чём Вы спрашиваете, а разве эта строка:
If DocWord.Saved = False Then DocWord.Save
Не для того чтобы начхать на всё что сделано?
Эта строчка сохраняет документ, если он не был сохранен. Это единственная строка, которая тебе нужна.
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724312
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro, не понял?, так что-ли:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Option Explicit

Sub AutoClose()

Dim DocWord As Word.Document 'экземпляр документа

Set DocWord = ActiveDocument

If DocWord.Saved = False Then DocWord.Save

'уничтожаем обьект - документ
Set DocWord = Nothing

End Sub
Так всё одно приглашает, вылазит форма для сохранения
И позже ещё ошибка 4138
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724315
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
И позже ещё ошибка 4198!
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724316
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ципихович ЭндрюShocker.Pro, не понял?, так что-ли:
так. только переменная DocWord здесь просто лишняя, можно проделывать данные операции просто над ActiveDocument

Ципихович ЭндрюТак всё одно приглашает, вылазит форма для сохранения
Попробуй руками открыть какой-нибудь документ и нажать кнопку "Сохранить". Вылазит? Нет.
Попробуй теперь создать новый документ и нажать кнопку "Сохранить". Вылазит? Намек понял?
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724327
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro, если в какой нибудь, вот это:

Код: plaintext
1.
2.
3.
4.
5.
Sub AutoClose()

If ActiveDocument.Saved = False Then ActiveDocument.Save

End Sub
тогда не вылазит ничего, но в то же время у него в этого какого то в АутоОпен ничего не было!
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724328
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ципихович Эндрюв этого какого то в АутоОпен ничего не было!
требуется перевод на русский
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724336
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro, Вы говорите в любой документ помести это:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub AutoClose()

If ActiveDocument.Saved = False Then ActiveDocument.Save

End Sub


и попробуй, я поместил, попробовал ничего при закрытии не появляется, закрывает как по маслу и это не удивительно, потому, что у него не было в автоопен ничего, он открылся и я его закрыл, а тот файл о котором я говорю в автозагрузке имеет:
проверить есть ли диск D, есть ли на нём определённая папка, если нет выдать сообщение и т.д.
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724342
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ципихович Эндрю,

Намек ты не понял, потому что не захотел подумать.
Метод Save не может сохранить "Документ1", не спрашивая у тебя имя файла, потому что этот документ еще не имеет имени файла.
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724347
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro,
я подумал вдоль и поперёк, всего одна строка кода как я понял, подскажите её и пойдём в курилку дрель продавать
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724351
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Плохо думал.
SaveAs
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724353
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я догадываюсь, через словие если Патч равно нулю и т.д.
Но дело в том, что сообщение о сохранении вылазит и если нет АутоКлозе вообще
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724361
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сума сойти одна строка кода If ActiveDocument.Saved = False Then ActiveDocument.SaveAs и всё, это для тех кому интересно или кто не знает и для Веры конечно, ЦЭ молодец, Shocker.Pro имеет скидку на покупку дрели
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724363
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
И чтобы уже до конца мен всё осознать по файлам подскажите пожалуйста, согласно данной строки:
Application.Run "Normal.NewMacros.Кнопка_пользователь"
Я запускаю макрос из шаблона Нормал дот, который находится в модуле NewMacros и его имя Кнопка_пользователь.
Можно ли и как указать инструкцию, чтобы запускался не с Нормал дот, а с другого шаблона?, видимо там ещё надо указывать адрес, где он находится? Подскажите пример такой строки кода. Спасибо
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724367
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Application.Run " Normal .NewMacros.Кнопка_пользователь"

выделенное жирным ни о чем не говорит?
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724378
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro, кстати рано обрадовался, открыл файл - закрываю файл, меня не о чём не спрашивает, красота. До поры до времени, если я открываю файл, пишу А, в честь чего не предлагает мне сохранить? Ведь произошли изменения, сделанные пользователем!
2. Говорит, если написать так:
Application.Run "Ц.Э.К"
тогда в моём понятии это такая инструкция:
Я запускаю макрос из шаблона Ц.dot, который находится в модуле Э и его имя К
Пробовал но так увы не происходит
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724384
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ципихович ЭндрюShocker.Pro, кстати рано обрадовался, открыл файл - закрываю файл, меня не о чём не спрашивает, красота. До поры до времени, если я открываю файл, пишу А, в честь чего не предлагает мне сохранить? Ведь произошли изменения, сделанные пользователем!
Блин. Сам не знаешь, чего хочешь. Сам же поставил команду "SaveAs", чтобы файл сохранялся всегда, независимо от того, были там изменения или нет.

Ципихович Эндрю2. Говорит, если написать так:
Application.Run "Ц.Э.К"
тогда в моём понятии это такая инструкция:
Я запускаю макрос из шаблона Ц.dot, который находится в модуле Э и его имя К
Пробовал но так увы не происходит
да, только ц.dot должен быть загружен
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724391
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro,
1. извините, я то знаю чего хочу, может витиевато объясняю, ладно ну сейчас то эту единственную строку кода как перекрутить с вновь открывшимися для Вас обстоятельствами?
2.ц.dot должен быть загружен, как это сделать??
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724395
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ципихович Эндрю1. извините, я то знаю чего хочу, может витиевато объясняю, ладно ну сейчас то эту единственную строку кода как перекрутить с вновь открывшимися для Вас обстоятельствами?
Ну я-то не знаю, чего ты хочешь, поэтому подсказать не могу.

Ципихович Эндрю2.ц.dot должен быть загружен, как это сделать??
Например из меню "Файл"-"Открыть"
...
Рейтинг: 0 / 0
закрыть файл програмно
    #36724403
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro,

1. Я запускаю с шаблона файл, в нём макросы Sub AutoNew() и Sub AutoOpen() имеются, их задача, проверить есть ли диск D, есть ли на нём определённая папка, если нет выдать сообщение. Например она есть, я открываю этот шаблон, получаю Документ1 и тут же ничего не делая его закрываю, у меня выдаётся сообщение, сохранить ли сохранения, но я же ничего не делал, как можно от этого сообщения избавитья?, может, что-то надо в AutoClose прописать.

Вобще каков скрипт следующего условия, если в документе ничего не изменилось, то есть в него я ничего не вводил и с него ничего не удалял, тогда ...?
Может я не правильно в этом условии высказался но смысл остаётся прежним, если пользователь ничего не сделал сам, тогда нечего у него и спрашивать.

По второму завтра буду думать
...
Рейтинг: 0 / 0
25 сообщений из 223, страница 2 из 9
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / закрыть файл програмно
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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