Quantcast

Calc, Makroaufzeichnung,Bereiche kopieren

classic Classic list List threaded Threaded
1 message Options
Günter Fritze Günter Fritze
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Calc, Makroaufzeichnung,Bereiche kopieren



Am 18.04.2017 um 14:46 schrieb Günter Fritze:

>
>
> Am 18.04.2017 um 14:29 schrieb Günter Fritze:
>> Hallo zusammen!
>>
>> Vor längerer Zeit habe ich durch Makroaufzeichnung eine Prpzedur
>> generieren lassen, die einen Tabellenbereich an eine andere Stelle
>> kopiert.
>>
>> sub Copyall(von As Variant, nach As Variant)
>> 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(0) as new com.sun.star.beans.PropertyValue
>> args1(0).Name = "ToPoint"
>> args1(0).Value = von
>>
>> dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
>>
>> rem
>> ----------------------------------------------------------------------
>> dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
>>
>> rem
>> ----------------------------------------------------------------------
>> dim args3(0) as new com.sun.star.beans.PropertyValue
>> args3(0).Name = "ToPoint"
>> args3(0).Value = nach
>>
>> dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())
>>
>> rem
>> ----------------------------------------------------------------------
>> dim args4(5) as new com.sun.star.beans.PropertyValue
>> args4(0).Name = "Flags"
>> args4(0).Value = "A"
>> args4(1).Name = "FormulaCommand"
>> args4(1).Value = 0
>> args4(2).Name = "SkipEmptyCells"
>> args4(2).Value = false
>> args4(3).Name = "Transpose"
>> args4(3).Value = false
>> args4(4).Name = "AsLink"
>> args4(4).Value = false
>> args4(5).Name = "MoveMode"
>> args4(5).Value = 4
>>
>> dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0,
>> args4())
>>
>>
>> end sub
>>
>> Diese Prozedur funktionierte mindestens 6 Monate einwandfrei.
>>
>> Ich war jetzt gezwungen mein Linuxsystem LinuxMint neu zu installieren.
>>
>> Die neue Version ist.
>>
>> Version: 5.1.4.2
>> Build-ID: 1:5.1.4-0ubuntu1
>> CPU-Threads: 4; BS-Version: Linux 4.4; UI-Render: Standard;
>> Gebietsschema: de-DE (de_DE.UTF-8)
>>
>> Die Kopien bringen teilweise unsinnige Ergebnisse. Ich habe nun eine
>> neue Prozedure generieren lassen, und siehe da: Es geht wieder. Die
>> einzigen Unterschiede sind in
>>
>> args4(5) steht statt der 4 eine 6.
>>
>> Vielleicht ist damit einem Mitstreiter geholfen.
>>
>> MfG
>>
>> Günter Fritze
>>
>>
>


--
Liste abmelden mit E-Mail an: [hidden email]
Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert
Loading...