Re: [libreoffice-users] Insert current date

Hello Peggy,

Le 21/05/2018 à 10:37, Peggy a écrit :
> Years ago in Word Perfect there was a feature that allowed me to use a
> shortcut key (even picking from a menu would be good) that inserted today's
> date. Does Libre Writer have this feature?
>
> I've never written a macro and the couple of instructions I've seen look
> complicated. If there is no feature for this, would their be a way to write
> a macro for the tecnically challenged?

While in Calc there's no need for a macro (the Ctrl + ; (semicolon) 
shortcut will do ;) such is not the case in Writer, yet.

So, yes, you need to create a macro then connect a keyboard shortcut to 
it. The process is quite simple if you use the macro recorder.

Here's how (longer to write than to execute) :

1. Creating the macro using the macro recorder

Note: the macro recorder is not available until you've activated the 
corresponding option in Tools > Options > LibreOffice > Options, Enable 
macro recording.

a. Open an empty Writer document

b. Goto Tools > Macro > Record macro
(a macro recorder toolbar is displayed: you'll press the "Stop 
recording" button when you're done)

c. Hit Ctrl+F2 to call the Insert Fields dialog,

d. in the Document thumbnail select:

Type = Date
Select = Date
Format = select the wanted format

e. Clic Insert, then Close

f. Clic the "Stop recording" button

g. A dialog opens that allows you to save the macro code.
Enter a name for your macro in Macro Name
Save macro in : select MyMacros > Standard > Module1
Click Save

(a sample of the macro code is given below)


2. Connecting the macro execution with a keyboard shortcut

a. Tools > Customize, Keyboard thumbnail

Shortcut Keys = choose an appropriate shortcut (Ctrl + ; might do...)
Category = LibreOffice Macros -> MyMacros -> Standard -> Module1
Function = select the macro created at step 1 above

b. Check the "Writer" radio button (the shortcut will be available in 
Writer only), then Modify which makes the shortcut appear in the Keys panel.

c. Validate OK


From now on, pressing Ctrl + ; in Writer inserts the current date.


8< -------------------------------------------------------------------
sub InsertCurrentDate

dim document   as object
dim dispatcher as object

rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

dim args1(5) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Type"
args1(0).Value = 0
args1(1).Name = "SubType"
args1(1).Value = 1
args1(2).Name = "Name"
args1(2).Value = ""
args1(3).Name = "Content"
args1(3).Value = "0"
args1(4).Name = "Format"
args1(4).Value = 10036          '
args1(5).Name = "Separator"
args1(5).Value = " "

dispatcher.executeDispatch(document, ".uno:InsertField", "", 0, args1())

end sub
-------------------------------------------------------------------- >8


HTH,
--
Jean-Francois Nifenecker, Bordeaux


--
To unsubscribe e-mail to: users+unsubscribe@global.libreoffice.org
Problems? https://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette
List archive: https://listarchives.libreoffice.org/global/users/
All messages sent to this list will be publicly archived and cannot be deleted