Hi Winfried,
Johannes,
wo liegen die Probleme?
erstes Problem, und das dickste: ich habe keine Ahnung von diesen
Sachen; ich gurke im Programm rum, und suche nach Lösungen;
Sub Johannes_20070831
' Hilfsfunktionen
GlobalScope.BasicLibraries.LoadLibrary( "Tools" )
' Öffnen eines Dokuments
Dim oParms(0) As New com.sun.star.beans.PropertyValue
' Linux
oDoc = StarDesktop.LoadComponentFromUrl( ConvertToURL(
"/pfad/zur/datei/dokument.odt" ) , "_blank", _0, oParms())
' windows
oDoc = StarDesktop.LoadComponentFromUrl( ConvertToURL(
"d:\pfad\zur\datei\dokument.odt" ) , "_blank", _0, oParms())
' Zwischenablage an Cursorsposition einfügen
' Problem? Cursor steht an 1. Position im Dokument ODER an letzter editierter
Stelle ?
oCtrl = oDoc.getCurrentController()
oRahmen = oCtrl.getFrame()
oDispatchHelper = createUnoService( "com.sun.star.frame.DispatchHelper" )
oDispatchHelper.executeDispatch( oRahmen , ".uno:Paste", "", 0, Array() )
' Sichern unter
' ?
End Sub
Willst Du zum Abschluss den Dialog geöffnet haben?
Oder sofort unter unter einem neuen Namen (an einem abweichenden Ort?)
speichern?
sorry, aber ich komme mir vor, wie vor Funksprüchen von Außerirdischen ;-)
ich schaue mir das Makroteil, das ich aufgezeichnet habe, mal an
(Aufbau, Befehle usw); dann komme ich evtl. nochmal mit gezielteren
Fragen auf obige Infos zurück; anders macht es evtl. nur Aufwand ohne
Aussicht auf Erfolg;
ich dachte, ausgehend von der simplen Makro-Aufzeichnung, es geht einfacher;
Gruß,
Johannes
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
