[Libreoffice-ux-advise] [Bug 128316] FIELDS: Allow date field with lower case letters

[bugzilla-daemon at bugs.documentfoundation.org]

https://bugs.documentfoundation.org/show_bug.cgi?id=128316

--- Comment #18 from Heiko Tietze <heiko.tietze at documentfoundation.org> ---
How about a solution per macro?

Option VBASupport 1 

Sub Main

   Dim oDoc As Object
   Dim oText As Object
   oDoc = ThisComponent
   oText = oDoc.Text
   oVCurs = oDoc.CurrentController.getViewCursor()
   oTCurs = oText.createTextCursorByRange(oVCurs.getStart())

   sToday = LCase( WeekdayName( WeekDay( Now() )))

   oText.insertString( oTCurs,  sToday, FALSE )

End Sub

-- 
You are receiving this mail because:
You are on the CC list for the bug.