Скрипт для резервного копирования в 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
Также решение нужно для поставки времени в документе, при рандомизации числа для несовпадения имён файла, в редких случаях оно совпадает. Так как в названии файла недопустимы знаки : ; ^ /
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
Также решение нужно для поставки времени в документе, при рандомизации числа для несовпадения имён файла, в редких случаях оно совпадает. Так как в названии файла недопустимы знаки : ; ^ /