1

Тема: Как убрать автоматическую дату

Есть бланк где автоматически проставляется текущие дата и время, необходимо в сохраненных файлах заполненного бланка изменить дату и время, которые соответствовали бы дате и времени создания бланка. А то получается, что через несколько дней появляется неоходимость распечатать несколько бланков, а там сегодняшнее время и дата. Как можно пакетно изменить в нескольких файлах даты и время, что бы они соответствовали дате и времени создания файла. Заранее спасибо.
Алексей

2

Re: Как убрать автоматическую дату

major48 пишет:

Есть бланк где автоматически проставляется текущие дата и время, необходимо в сохраненных файлах заполненного бланка изменить дату и время, которые соответствовали бы дате и времени создания бланка. А то получается, что через несколько дней появляется неоходимость распечатать несколько бланков, а там сегодняшнее время и дата. Как можно пакетно изменить в нескольких файлах даты и время, что бы они соответствовали дате и времени создания файла. Заранее спасибо.
Алексей

Sub Дата_Создания()
Dim oWord As Document
Set oWord = ActiveDocument
Dim sDate
sDate = oWord.BuiltInDocumentProperties(11)
End Sub

А чтобы наверняка - можно сделать внесение даты и времени создания файла в дополнительные свойства документа т.е. при открытии ворд - создать свойства 1) Дата 2) Время, а затем уже вставлять их в поля.
В таком случае вы наверняка знаете, в какой переменной будет необходимая информация.

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871