Johannes, wo liegen die Probleme?
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? Cheers Winfried --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
