OpenOffice.info

Hallo

ich hab's endlich ausprobieren können. Es klappt prima.

Auf die Idee mit dem Rekorder hätte ich Trollo eigentlich selbst kommen können.


Danke!

Friedhelm

sub inhalte2
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$E$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(5) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Flags"   'Hier wird die Art der Einfügung bestimmt:
args3(0).Value = "SVD"    'S->Text, V ->Werte, D ->Datum und Zeit
                                          'F ->Formeln, N -> Notizen, T->Formate
args3(1).Name = "FormulaCommand"
args3(1).Value = 0
args3(2).Name = "SkipEmptyCells"
args3(2).Value = false
args3(3).Name = "Transpose"
args3(3).Value = false
args3(4).Name = "AsLink"
args3(4).Value = false
args3(5).Name = "MoveMode"
args3(5).Value = 4

dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args3())


end sub

Hallo Friedhelm

Bei dem folgendem aufgezeichneten Code wird die Art der Einfügung in der
Zeile : 'args3(0)Value bestimmt. Erklärungen im Code

[code]sub inhalte2
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$E$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(5) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Flags" 'Hier wird die Art der Einfügung bestimmt:
args3(0).Value = "SVD" 'S->Text, V ->Werte, D ->Datum und Zeit
'F ->Formeln, N -> Notizen, T->Formate
args3(1).Name = "FormulaCommand"
args3(1).Value = 0
args3(2).Name = "SkipEmptyCells"
args3(2).Value = false
args3(3).Name = "Transpose"
args3(3).Value = false
args3(4).Name = "AsLink"
args3(4).Value = false
args3(5).Name = "MoveMode"
args3(5).Value = 4

dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args3())


end sub
[/code]

Gruß Karo

Hallo,

ich möchte Werte und Formate getrennt über die Zwischenablage in eine Calc Zelle einfügen.
Copy und Paste ist soweit klar, aber wie geht "Inhalte einfügen"?

Danke für Antwort.

Friedhelm