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