Forum społeczności użytkowników OpenOffice i LibreOffice

Witam.
Chciałbym ulepszyć troszeczkę makra które używam. Mianowicie mam w dialogu min. pole daty, ale po otwarciu nie ma w niej wpisanej daty. Chciałbym żeby znalazła się tam aktualna data. W załączniku zrobiłem nowy dialog z kodem takim jak w moim makrze. Bardzo proszę o jakieś sugestie.
Artur

Sub StartDialog1
DialogLibraries.LoadLibrary( "Standard" )
oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1)
oDialog1.getModel().getByName("DateField1").Date = CdateToIso(Date())'dopisz ten wiersz
oDialog1.Execute
End Sub

dzięki poszło