Помогите !!! автоматическое добавление даты...

[Yelik]

Присоединяюсь к вопросам JohnSUN:

Давай уточним - какая именно дата должна зафиксироваться в B3? Дата сохранения, дата печати, дата создания?.. В свойствах документа этих дат как миллионеров во Флориде... и ещё добавить можно, в пользовательских свойствах... И выдернуть в нужную ячейку именно её (дату из свойств) - гораздо проще... Опять же, как уберечься от нечаянного изменения даты при повторном открытии файла?

В зависимости от условий задачи решение может быть очень разным.

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

[rami]

Назначьте макрос:

Код Выделить Развернуть

Sub Main
ThisComponent.Sheets(0).getCellByposition(1,2).setValue(Now)
End Sub
событию Печать документа
Дата появится в момент вызова диалога печати.

[JohnSUN]

Отличное решение! Я бы чуть дополнил:

Код Выделить Развернуть

Sub setDateOfFirstPrint
Dim oCell As Variant
oCell = ThisComponent.Sheets(0).getCellByposition(1,2)
If Trim(oCell.getString())="" Then oCell.setValue(Now)
End SubТо есть, если в B3 еще ничего нет то вписать текущую дату-время.
Тогда если этот файл нужно будет повторно распечатать из архива (ну, потерялся документ, бывает!), то значение будет то же, что и при печати оригинала.

[Yelik]

Назначьте макрос:

Код Выделить Развернуть

Sub Main
ThisComponent.Sheets(0).getCellByposition(1,2).setValue(Now)
End Sub
событию Печать документа
Дата появится в момент вызова диалога печати.

Отличное решение! Я бы чуть дополнил:

Код Выделить Развернуть

Sub setDateOfFirstPrint
Dim oCell As Variant
oCell = ThisComponent.Sheets(0).getCellByposition(1,2)
If Trim(oCell.getString())="" Then oCell.setValue(Now)
End SubТо есть, если в B3 еще ничего нет то вписать текущую дату-время.
Тогда если этот файл нужно будет повторно распечатать из архива (ну, потерялся документ, бывает!), то значение будет то же, что и при печати оригинала.

К сожалению, возвращает ошибку

[rami]

К сожалению, возвращает ошибку

Если вы удаляете макрос, то удаляйте и связанные с ним события. У вас неудалённое событие ищет удалённый макрос

[Yelik]

Работает, огромное спасибо!