Автоматическое сохранение документа при его закрытии

Комментариев: 15

1. 

   Андрей
   08.09.2009 в 12:16 | #1

   А как с помощью макроса можно указать путь для сохранения документа? Т.е. при выполнении макроса открывается диалоговое окно сохранении документа, а в нем уже открыта определенная папка. Названием документа при этом является первый абзац документа.
2. 

   Александр Витер
   08.09.2009 в 12:32 | #2

   Sub MyFileSave()
     With Dialogs(wdDialogFileSaveAs)
       .Name = Left(ActiveDocument.Paragraphs(1).Range.Text, Len(ActiveDocument.Paragraphs(1).Range.Text) - 1)
       .Show
     End With
   End Sub
3. 

   Андрей
   08.09.2009 в 12:43 | #3

   А где в коде указать путь к папке?
4. 

   Александр Витер
   08.09.2009 в 12:53 | #4

   Прошу прощения,

   Sub MyFileSave()
     Dim sPath As String
     sPath = "D:\"
     With Dialogs(wdDialogFileSaveAs)
       .Name = sPath & Left(ActiveDocument.Paragraphs(1).Range.Text, Len(ActiveDocument.Paragraphs(1).Range.Text) - 1)
       .Show
     End With
   End Sub

   Если указать просто путь, без имени, то окно просто откроется в указанной папке
5. 

   Андрей
   08.09.2009 в 13:35 | #5

   Почему то в кавычках название появлялось. Убрал .Name получилось без кавычек. Правда, если длинный абзац будет, то часть абзаца "обрежется". Но это ничего.

   Спасибо.
6. 

   Кирилл
   23.09.2009 в 16:39 | #6

   Доброго времени суток. Простите заранее может быть не туда пишу, но кол-во знаний большее не позволили. Сталкнулся с некой проблемой на работе. Требуется макрос для автосохранения документа ( ActiveDocument.Save ) через определённое время. Естественно с корекцией времени. Спасибо большое заранее!
7. 

   Админ
   23.09.2009 в 19:10 | #7

   Кирилл, вот пример такого макроса. Откройте глобальный шаблон Normal.dot и вставьте код (поправьте время, через которое будет срабатывать автосохранение):

   Sub AutoExec()
   Application.OnTime Now + TimeValue("00:00:07"), "saveDoc"
   End Sub
   Sub saveDoc()
   If ActiveDocument.Saved = False Then ActiveDocument.Save
   Call AutoExec
   End Sub
8. 

   Админ
   23.09.2009 в 19:11 | #8

   P.S. В этом макросе автосохранение срабатывает через 7 секунд.
9. 

   Кирилл
   23.09.2009 в 21:06 | #9

   Кроме как спасибо и сказать не чего не могу. Работает!!!
10. 

    Игорь
    25.09.2009 в 10:28 | #10

    А как сделать наоборот, чтобы при закрытии документ автоматически НЕ сохранялся?

    Спасибо!
11. 

    Екатерина
    06.04.2010 в 19:36 | #11

    приветствую Экспертов! Столкнулась со следующей проблемой: необходимо в вордовской форме (офис 2007) на кнопку назначить функцию "при нажатии на неё документ сохранить, сделать файлом вложения в новое письмо Outlook и отправить по указанному адресу" (т.е. при нажатии на кнопку данный документ должен сохраниться в виде файла вложения к письму используемой почтовой программы). Email на кнопку я задала гиперссылкой, однако, создавая новое письмо, сам документ файлом вложения не становится... Видимо надо создавать макрос, но какой?.. Заранее благодарю за ответ!
12. 

    александр
    06.03.2013 в 15:20 | #12

    а как сделать, чтобы с помощью макроса документ сохранялся в определенную папку с именем (имя файла - номер, например 1), а следующий документ сохранялся туда же но с именем следующего номера? (т.е. следующее имя должно быть 2, а следующее 3 и так далее) заранее спасибо
13. 

    Влад
    01.04.2013 в 23:26 | #13

    Ребята, подскажите макрос на пересохранение текущего документа в указанной папке с именем материнского файла и переменной (например документ1, документ2, документ3). И по возможности - аналогичный макрос, который бы срабатывал при закрытии активного документа
14. 

    Сергей Колибаба
    18.10.2019 в 15:34 | #14

    Программа Ultra Office периодически не сохраняет документы.
15. 

    Sduff
    18.11.2021 в 17:48 | #15

    А как сделать, чтобы Не сохранялся и закрывался