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
