Attachment 93872 Details for Bug 74846 – The macro, with wrong date format

The macro, with wrong date format

Module1.xba (text/plain), 6.04 KB, created by kanyi on 2014-02-11 16:07:10 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: kanyi

Created: 2014-02-11 16:07:10 UTC

Size: 6.04 KB

patch

obsolete

><?xml version="1.0" encoding="UTF-8"?>
><!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
><script:module xmlns:script="http://openoffice.org/2000/script" script:name="Module1" script:language="StarBasic">REM  *****  BASIC  *****
>
>Sub Main
>
>End Sub
>
>
>sub datum_alairas
>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(&quot;com.sun.star.frame.DispatchHelper&quot;)
>
>rem ----------------------------------------------------------------------
>dim args1(0) as new com.sun.star.beans.PropertyValue
>args1(0).Name = &quot;Text&quot;
>args1(0).Value = CHR$(9)+&quot;DÃ¡tum:&quot;
>
>dispatcher.executeDispatch(document, &quot;.uno:InsertText&quot;, &quot;&quot;, 0, args1())
>
>rem ----------------------------------------------------------------------
>dim args2(5) as new com.sun.star.beans.PropertyValue
>args2(0).Name = &quot;Type&quot;
>args2(0).Value = 0
>args2(1).Name = &quot;SubType&quot;
>args2(1).Value = 0
>args2(2).Name = &quot;Name&quot;
>args2(2).Value = &quot;&quot;
>args2(3).Name = &quot;Content&quot;
>args2(3).Value = &quot;0&quot;
>args2(4).Name = &quot;Format&quot;
>args2(4).Value = 10076
>args2(5).Name = &quot;Separator&quot;
>args2(5).Value = &quot; &quot;
>
>dispatcher.executeDispatch(document, &quot;.uno:InsertField&quot;, &quot;&quot;, 0, args2())
>
>rem ----------------------------------------------------------------------
>dim args3(1) as new com.sun.star.beans.PropertyValue
>args3(0).Name = &quot;Count&quot;
>args3(0).Value = 1
>args3(1).Name = &quot;Select&quot;
>args3(1).Value = false
>
>dispatcher.executeDispatch(document, &quot;.uno:GoLeft&quot;, &quot;&quot;, 0, args3())
>
>rem ----------------------------------------------------------------------
>dim args4(0) as new com.sun.star.beans.PropertyValue
>args4(0).Name = &quot;Text&quot;
>args4(0).Value = &quot; &quot;
>
>dispatcher.executeDispatch(document, &quot;.uno:InsertText&quot;, &quot;&quot;, 0, args4())
>
>rem ----------------------------------------------------------------------
>dim args5(1) as new com.sun.star.beans.PropertyValue
>args5(0).Name = &quot;Count&quot;
>args5(0).Value = 1
>args5(1).Name = &quot;Select&quot;
>args5(1).Value = false
>
>dispatcher.executeDispatch(document, &quot;.uno:GoRight&quot;, &quot;&quot;, 0, args5())
>
>rem ----------------------------------------------------------------------
>dim args6(0) as new com.sun.star.beans.PropertyValue
>args6(0).Name = &quot;Text&quot;
>args6(0).Value = CHR$(9)+CHR$(9)+CHR$(9)+CHR$(9)+CHR$(9)+&quot;ÃrtÃ©kelte: BalÃ¡zs Attila&quot;
>
>dispatcher.executeDispatch(document, &quot;.uno:InsertText&quot;, &quot;&quot;, 0, args6())
>
>
>end sub
>
>
>sub datum_alairas_rogzitettdatum_2
>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(&quot;com.sun.star.frame.DispatchHelper&quot;)
>
>rem ----------------------------------------------------------------------
>dim args1(0) as new com.sun.star.beans.PropertyValue
>args1(0).Name = &quot;Text&quot;
>args1(0).Value = CHR$(9)+&quot;DÃ¡tum: &quot;
>
>dispatcher.executeDispatch(document, &quot;.uno:InsertText&quot;, &quot;&quot;, 0, args1())
>
>rem ----------------------------------------------------------------------
>dim args2(5) as new com.sun.star.beans.PropertyValue
>args2(0).Name = &quot;Type&quot;
>args2(0).Value = 0
>args2(1).Name = &quot;SubType&quot;
>args2(1).Value = 0
>args2(2).Name = &quot;Name&quot;
>args2(2).Value = &quot;&quot;
>args2(3).Name = &quot;Content&quot;
>args2(3).Value = &quot;0&quot;
>args2(4).Name = &quot;Format&quot;
>args2(4).Value = 10081
>args2(5).Name = &quot;Separator&quot;
>args2(5).Value = &quot; &quot;
>
>dispatcher.executeDispatch(document, &quot;.uno:InsertField&quot;, &quot;&quot;, 0, args2())
>
>rem ----------------------------------------------------------------------
>dim args3(0) as new com.sun.star.beans.PropertyValue
>args3(0).Name = &quot;Text&quot;
>args3(0).Value = CHR$(9)+CHR$(9)+CHR$(9)+CHR$(9)+CHR$(9)+&quot;ÃrtÃ©kelte: BalÃ¡zs Attila&quot;
>
>dispatcher.executeDispatch(document, &quot;.uno:InsertText&quot;, &quot;&quot;, 0, args3())
>
>
>end sub
>
>
>sub test
>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(&quot;com.sun.star.frame.DispatchHelper&quot;)
>
>rem ----------------------------------------------------------------------
>dim args1(0) as new com.sun.star.beans.PropertyValue
>args1(0).Name = &quot;Text&quot;
>args1(0).Value = &quot;Date: &quot;
>
>dispatcher.executeDispatch(document, &quot;.uno:InsertText&quot;, &quot;&quot;, 0, args1())
>
>rem ----------------------------------------------------------------------
>dim args2(5) as new com.sun.star.beans.PropertyValue
>args2(0).Name = &quot;Type&quot;
>args2(0).Value = 0
>args2(1).Name = &quot;SubType&quot;
>args2(1).Value = 0
>args2(2).Name = &quot;Name&quot;
>args2(2).Value = &quot;&quot;
>args2(3).Name = &quot;Content&quot;
>args2(3).Value = &quot;0&quot;
>args2(4).Name = &quot;Format&quot;
>args2(4).Value = 10076
>args2(5).Name = &quot;Separator&quot;
>args2(5).Value = &quot; &quot;
>
>dispatcher.executeDispatch(document, &quot;.uno:InsertField&quot;, &quot;&quot;, 0, args2())
>
>rem ----------------------------------------------------------------------
>dim args3(0) as new com.sun.star.beans.PropertyValue
>args3(0).Name = &quot;Text&quot;
>args3(0).Value = CHR$(9)+CHR$(9)+CHR$(9)+CHR$(9)+CHR$(9)+&quot;Balazs Attila&quot;
>
>dispatcher.executeDispatch(document, &quot;.uno:InsertText&quot;, &quot;&quot;, 0, args3())
>
>
>end sub
></script:module>

Actions: View

Attachments on bug 74846: 93872