in einen odt-Dokument ist ein Datumsfeld welches nicht fixiert ist. Dieses Datumsfeld soll auf das Datum von Datei-Eigenschaften-Geändert am: gesetzt und fixiert werden.
Folgender Code funktioniert nicht:
Code: Alles auswählen
Sub Main
Dim k
oEnum = ThisComponent.getTextFields().createEnumeration()
Do While oEnum.hasMoreElements()
oField = oEnum.nextElement()
If oField.supportsService("com.sun.star.text.textfield.DateTime") Then
If oField.isDate = True AND oField.IsFixed = False Then
oField.DateTimeValue = ThisComponent.getDocumentProperties().ModificationDate
oField.IsFixed = True
oField.Update()
k = k + 1
End If
End If
Loop
If k > 0 Then
Msgbox k & " Datumsfeld(er) wurde(n) korrigiert."
Else
Msgbox "Keine Veränderungen vorgenommen."
End If
End Sub
Gruß
Stephan