Резервное копирование документов Microsoft Word

Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
Ответить
Резервное копирование документов Microsoft Word
Скрипт для резервного копирования в Word

Private Sub Document_Close()

Dim Y As Integer
Randomize
Y = Rnd(10000) * 10000
ActiveDocument.SaveAs "D:\backup\office\_" & Date$ & "_" & Y & "_" & ActiveDocument.Name

End Sub


Есть ли какие то замечания, предложения для улучшения.

Нужно сменить в названии файла расстановку даты с американской 11.30.2009 на русское 30.11.2009

Также решение нужно для поставки времени в документе, при рандомизации числа для несовпадения имён файла, в редких случаях оно совпадает. Так как в названии файла недопустимы знаки    : ; ^ /
Страницы: 1
Ответить
Форма ответов
 
Текст сообщения*
:) ;) :D 8-) :( :| :cry: :evil: :o :oops: :{} :?: :!: :idea:
Защита от автоматических сообщений. Введите символы, изображенные на этой картинке в поле ввода &quote;Код подтверждения&quote;.