Apache OpenOffice Community Forum

Code: Select all

sub dt
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertDateField", "", 0, Array())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Text"
args2(0).Value = " "

dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args2())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertTimeField", "", 0, Array())


end sub

Code: Select all

Sub unifyDateTimeFieldFormats(Optional pDoc As Object, _
                              Optional pLang As String, _
                              Optional pDateFormatString As String, _  
                              Optional pTimeFormatString As String)
REM Be careful! Undo does NOT work for the changes made by this routine!
theDoc = IIf(IsMissing(pDoc), ThisComponent, pDoc)
If NOT theDoc.SupportsService("com.sun.star.text.TextDocument") Then Exit Sub
fStringLang = IIf(IsMissing(pLang), "en", pLang)
REM Use a language for which your format codes are valid.
Dim fmtLocale As New com.sun.star.lang.Locale
fmtLocale.Language = fStringLang
dateFstring = IIf(IsMissing(pDateFormatString), "YYYY-MM-DD", pDateFormatString)
timeFstring = IIf(IsMissing(pTimeFormatString), "HH:MM:SS",   pTimeFormatString)
dateFkey    = findCreateNumberFormat(dateFstring, theDoc, fmtLocale)
timeFkey    = findCreateNumberFormat(timeFstring, theDoc, fmtLocale)
For Each tf In theDoc.TextFields
  If NOT tf.SupportsService("com.sun.star.text.TextField.DateTime") Then Goto nexttf
  Select Case tf.IsDate
    Case True  : tf.NumberFormat = dateFkey
    Case False : tf.NumberFormat = timeFkey
  End Select
nexttf:
Next tf
End Sub