Hallo Leute,
mich erreichte eine Anfrage eines Herrn, deren Beantwortung ich
interessant für das Projekt finde, selbst aber mangels Wissen nicht
beantworten kann.
Das hatte ich ihm auch geschrieben, mit dem Hinweis auf Mailinglisten und
Foren, aber er schrieb heute nochmal, dass er da nicht fündig geworden sei.
Vielleicht hat jemand von euch genug Fachwissen, um da einzusteigen.
Gruß,
Wolfgang
Nachricht 1:
... mit meinem VC++2005 Programm übertrage ich
Daten nach Excel zu individuellen Analyse des Anwenders.
Nun möchte ich die Verbreitung von Open Office
fördern und das Gleiche tun. Den Transfer meiner
Daten nach Calc habe ich hingekommen, analog
http://www.oooforum.org/forum/viewtopic.phtml?t=8337
Nun fehlt die Formatierung der Daten (Dinge wie im
Makro vom Anhang)
Habe mir extra ein Buch gekauft -> ISBN 1-84719-097-9,
der Autor versteht unter Calc Automation aber etwas anderes.
Mit freundlichen Grüßen
Werner Hüttner
Email: w.huett...@analytik-jena.de
Nachricht 2:
... Aber ich komme nicht weiter. Ich suche einen Experten,
der mir sagt, wo ich ein Beispiel finde, wie man mit Visual
C++ 2005 über die Automatisierung nach Open Office
Calc übertragene Daten formatieren kann.
Entsprechende Dokumentation (also doch mit Ihren Fachgebiet
verwandt) wie für Excel z.B. unter
http://support.microsoft.com/kb/179706
kann ich nirgends finden. Sonst muss ich eben mein
Hoppyforschungsprojekt wieder streichen.
Ich wäre Ihnen also sehr dankbar, wenn Sie mir jemanden
vermitteln könnten, der mir Hinweise (ich würde ihm auch
die Quellen meiner bisherigen Arbeit senden) geben kann.
REM ***** BASIC *****
sub Ht1
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 = "$A$2"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Bold"
args2(0).Value = true
dispatcher.executeDispatch(document, ".uno:Bold", "", 0, args2())
rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "HorizontalJustification"
args3(0).Value = com.sun.star.table.CellHoriJustify.CENTER
dispatcher.executeDispatch(document, ".uno:HorizontalJustification", "", 0,
args3())
rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$C$2:$E$13"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4())
rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "NumberFormatValue"
args5(0).Value = 107
dispatcher.executeDispatch(document, ".uno:NumberFormatValue", "", 0, args5())
rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "aExtraWidth"
args6(0).Value = 200
dispatcher.executeDispatch(document, ".uno:SetOptimalColumnWidth", "", 0,
args6())
end sub
sub Main
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 = "Name"
args1(0).Value = "Data"
dispatcher.executeDispatch(document, ".uno:RenameTable", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Nr"
args2(0).Value = 2
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args2())
rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Name"
args3(0).Value = "Info"
dispatcher.executeDispatch(document, ".uno:RenameTable", "", 0, args3())
rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "aExtraWidth"
args4(0).Value = 200
dispatcher.executeDispatch(document, ".uno:SetOptimalColumnWidth", "", 0,
args4())
rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ToPoint"
args5(0).Value = "$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())
rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "Nr"
args6(0).Value = 1
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args6())
rem ----------------------------------------------------------------------
dim args7(0) as new com.sun.star.beans.PropertyValue
args7(0).Name = "Bold"
args7(0).Value = true
dispatcher.executeDispatch(document, ".uno:Bold", "", 0, args7())
rem ----------------------------------------------------------------------
dim args8(0) as new com.sun.star.beans.PropertyValue
args8(0).Name = "HorizontalJustification"
args8(0).Value = com.sun.star.table.CellHoriJustify.CENTER
dispatcher.executeDispatch(document, ".uno:HorizontalJustification", "", 0,
args8())
rem ----------------------------------------------------------------------
dim args9(0) as new com.sun.star.beans.PropertyValue
args9(0).Name = "ToPoint"
args9(0).Value = "$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args9())
end sub
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscr...@de.openoffice.org
For additional commands, e-mail: dev-h...@de.openoffice.org
