Hi :) Looks like the code didn't get to the list so here it is "
REM ***** BASIC ***** Sub Main End Sub sub Insert_Line_and_Date 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 ---------------------------------------------------------------------- dim args1(1) as new com.sun.star.beans.PropertyValue args1(0).Name = "GraphicName" args1(0).Value = "" args1(1).Name = "IsSimpleLine" args1(1).Value = true dispatcher.executeDispatch(document, ".uno:InsertGraphicRuler", "", 0, args1()) rem ---------------------------------------------------------------------- dim args2(5) as new com.sun.star.beans.PropertyValue args2(0).Name = "Type" args2(0).Value = 0 args2(1).Name = "SubType" args2(1).Value = 0 args2(2).Name = "Name" args2(2).Value = "" args2(3).Name = "Content" args2(3).Value = "0" args2(4).Name = "Format" args2(4).Value = 5122 args2(5).Name = "Separator" args2(5).Value = " " dispatcher.executeDispatch(document, ".uno:InsertField", "", 0, args2()) rem ---------------------------------------------------------------------- dim args3(0) as new com.sun.star.beans.PropertyValue args3(0).Name = "Text" args3(0).Value = ", " dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args3()) rem ---------------------------------------------------------------------- dim args4(1) as new com.sun.star.beans.PropertyValue args4(0).Name = "Template" args4(0).Value = "Heading 1" args4(1).Name = "Family" args4(1).Value = 2 dispatcher.executeDispatch(document, ".uno:StyleApply", "", 0, args4()) end sub " Regards from Tom :) >________________________________ > From: . <l...@ebookring.net> >To: Tom Davies <tomdavie...@yahoo.co.uk> >Sent: Saturday, 27 October 2012, 18:37 >Subject: Re: off-list Re: [libreoffice-users] Date changes to a 5 digit number > > >Tom, > >Did my code message get to the list? I know you replied with it but it seems there's no option for me to reply to the list. > >Thanks, > >Carl > > > >On 10/27/2012 01:33 PM, Tom Davies wrote: > ><snip /> >> >> >> >> >>>________________________________ >>> From: . <l...@ebookring.net> >>>To: Tom Davies <tomdavie...@yahoo.co.uk> >>>Sent: Saturday, 27 October 2012, 18:29 >>>Subject: Re: [libreoffice-users] Date changes to a 5 digit number >>> >>>On 10/27/2012 01:06 PM, Tom Davies wrote: >>>> Hi :) >>>> Can you copy&paste the macro's code into a reply as text? If we could see the code then some people here might be able to spot the error. >>>> Good luck and regards from >>>> Tom :) >>> >>>Here's the code- >>> >>>REM ***** BASIC ***** >>> >>>Sub Main >>> >>>End Sub >>> >>> >>> >>> >>> >>> >>>sub Insert_Line_and_Date >>>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 ---------------------------------------------------------------------- >>>dim args1(1) as new com.sun.star.beans.PropertyValue >>>args1(0).Name = "GraphicName" >>>args1(0).Value = "" >>>args1(1).Name = "IsSimpleLine" >>>args1(1).Value = true >>> >>>dispatcher.executeDispatch(document, ".uno:InsertGraphicRuler", "", 0, >>>args1()) >>> >>>rem ---------------------------------------------------------------------- >>>dim args2(5) as new com.sun.star.beans.PropertyValue >>>args2(0).Name = "Type" >>>args2(0).Value = 0 >>>args2(1).Name = "SubType" >>>args2(1).Value = 0 >>>args2(2).Name = "Name" >>>args2(2).Value = "" >>>args2(3).Name = "Content" >>>args2(3).Value = "0" >>>args2(4).Name = "Format" >>>args2(4).Value = 5122 >>>args2(5).Name = "Separator" >>>args2(5).Value = " " >>> >>>dispatcher.executeDispatch(document, ".uno:InsertField", "", 0, args2()) >>> >>>rem ---------------------------------------------------------------------- >>>dim args3(0) as new com.sun.star.beans.PropertyValue >>>args3(0).Name = "Text" >>>args3(0).Value = ", " >>> >>>dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args3()) >>> >>>rem ---------------------------------------------------------------------- >>>dim args4(1) as new com.sun.star.beans.PropertyValue >>>args4(0).Name = "Template" >>>args4(0).Value = "Heading 1" >>>args4(1).Name = "Family" >>>args4(1).Value = 2 >>> >>>dispatcher.executeDispatch(document, ".uno:StyleApply", "", 0, args4()) >>> >>> >>>end sub >>> >>> >>> >>>> >>>> >>>> >>>> >>>>> ________________________________ >>>>> From: . <l...@ebookring.net> >>>>> To: users@global.libreoffice.org >>>>> Sent: Saturday, 27 October 2012, 17:59 >>>>> Subject: [libreoffice-users] Date changes to a 5 digit number >>>>> >>>>> I made a macro that inserts the date (fixed) as (for example) "July 30, >>>>> 2012," >>>>> >>>>> However, after running the macro a fews time the date then appears as >>>>> some 5 digit number. >>>>> >>>>> How do I fix this date problem? >>>>> >>>>> -- >>>>> www.eBookRing.net >>>>> >>>>> The designer and maker of the original eBookRing >>>>> The perfect stand for eReaders, iPads, iPhones, tablet computers and other electronic devices. >>>>> >>>>> Patent Pending >>>>> >>>>> >>>>> -- >>>>> For unsubscribe instructions e-mail to: users+h...@global.libreoffice.org >>>>> Problems? >>>>> http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/ >>>>> Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette >>>>> List archive: http://listarchives.libreoffice.org/global/users/ >>>>> All messages sent to this list will be publicly archived and cannot be deleted >>>>> >>>>> >>>>> >>>>> >>> >>> >>>-- >>>www.eBookRing.net >>> >>>The designer and maker of the original eBookRing >>>The perfect stand for eReaders, iPads, iPhones, tablet computers and other electronic devices. >>> >>>Patent Pending >>> >>> >>> >>> > > >-- www.eBookRing.net The designer and maker of the original eBookRing The perfect stand for eReaders, iPads, iPhones, tablet computers and other electronic devices. Patent Pending > > -- For unsubscribe instructions e-mail to: users+h...@global.libreoffice.org Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/ Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette List archive: http://listarchives.libreoffice.org/global/users/ All messages sent to this list will be publicly archived and cannot be deleted