I know there is the CTRL + ; shortcut to insert the current date and CTRL + SHIFT + ; to insert the current time.
However I have two issues with that:
1) I would like to have one shurtcut for both
2) I would like to be able to use a custom date-time format (YYYY-MM-DD HH:MM:SS
)
My language default format is MM/DD/YY HH:MM:SS pm/am
- I do not want to change this. I want to use a custom format specifically for that shortcut, preferably without solutions involving xdotool
or similar external macro software or global system-wide shortcuts.
The functions within Tools -> Customize -> Keyboard
don't seem to offer any help.
(Why I don't want to use xdotool; A solution directly within LibreOffice would be best.)
I found the following OpenOffice macro code here, but it says it only works with Writer documents. How would I modify this macro to insert the formatted DATE-TIME into the currently selected cell in Calc?
'Author: Andrew Pitonyak
'email: [email protected]
'uses: FindCreateNumberFormatStyle
Sub InsertDateField
Dim oDoc
Dim oText
Dim oVCurs
Dim oTCurs
Dim oDateTime
Dim s$
oDoc = ThisComponent
If oDoc.SupportsService("com.sun.star.text.TextDocument") Then
oText = oDoc.Text
oVCurs = oDoc.CurrentController.getViewCursor()
oTCurs = oText.createTextCursorByRange(oVCurs.getStart())
oText.insertString(oTCurs, "Today is ", FALSE)
' Create the DateTime type.
s = "com.sun.star.text.TextField.DateTime"
ODateTime = oDoc.createInstance(s)
oDateTime.IsFixed = TRUE
oDateTime.NumberFormat = FindCreateNumberFormatStyle(_
"DD. MMMM YYYY", oDoc)
oText.insertTextContent(oTCurs,oDateTime,FALSE)
oText.insertString(oTCurs," ",FALSE)
Else
MsgBox "Sorry, this macro requires a TextDocument"
End If
End Sub
2)
. I'm thinking this should be possible using a macro in LO and then assigning it to the shortcut, but I don't know anything about macros in LO work.