On 10/27/2012 01:29 PM, . wrote:
> 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: . <[email protected]>
>>> To: [email protected]
>>> 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: [email protected]
>>> 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
--
For unsubscribe instructions e-mail to: [email protected]
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
