OpenOffice.info

Hey Mitschel,

also, erst mal was zur Logik: OOo stellte genau einen View-Cursor zur Verfügung, das ist das blinkende Teil im aktuellem Dokument, das aktiv im Vordergrund steht.
Darüber hinaus kannst du beliebig viele Textcursor erzeugen und diese beliebig plazieren. An einem Textcursor kannst du dann Text oder andere Sachen einfügen.

Zu deinem Code: Ein hidden Dokument besitzt keine Viewcursor. Check mal, ob dein Objekt "vCursorToPaste" überhaupt existiert bzw. nicht leer ist.

Auch die Methode "getStart()" halte ich in diesem Zusammenhang für nicht hilfreich. Die wirkt, wenn du einen bestimmten Bereich markiert hast (das ist ja dann der Viewcursor), dann kannst du vom Anfang etwas auslesen.

[quote]oText = vCursorToPaste.getText() [/quote]
Auch diese Zeile ist wohl falsch. Es müsste zumindest "vCursorToCopy" heissen, und ich glaube, du erhältst eine String zurück.
[quote]oText.insertTextContent(oStart,vCursorToCopy,true) [/quote]
Und hier wird es ganz wirr. oText dürfte kein Objekt sein, hier müsste eigentlich dein Dokument stehen.
Anstatt oStart nurzt man meist den "Anker" eines zuvor erstellen Bereiches, zum Beispiel den des Textcursors.
Da musst du mal bischen schmökern. Es gibt so Makrosammlungen, zum Beispiel:
[url]http://www.dannenhoefer.de/faqstarbasic.htm[/url]
[url]http://www.amt-wiesbaden.de[/url]
Dort findest du ein paar Hinweise. Hab im Moment leider keine Zeit, dir einen fertigen Code zu liefern, aber, ich hoffe es hilft trotzdem :wink:

Gruss
Thomas

sub CopyPaste

 Dim Args(0) As new com.sun.star.beans.PropertyValue 
  Args(0).Name = "Hidden" 
  Args(0).Value = true 
	
   oDocumentToCopy = ThisComponent
   oDesktop = createUnoService( "com.sun.star.frame.Desktop" ) 
   oDocumentToPaste= oDesktop.loadComponentFromURL( "private:factory/swriter", "_blank", 0, Args() ) 
			
   vCursorToCopy = oDocumentToCopy.CurrentController.getViewCursor ()
		
   vCursorToPaste = oDocumentToPaste.CurrentController.getViewCursor ()
  oStart = vCursorToPaste.getStart()
  oText = vCursorToPaste.getText()
	
		
 oText.insertTextContent(oStart,vCursorToCopy,true)
		
		

end Sub

Hallo!

Ich habe genau das gleiche Problem! Ich möchte einen, mit der maus markierten text in ein neues dokument schreiben! leider liefert mir die letzte code zeile immer eine illegal argument exception... kann mir von euch jemand helfen?

[code]
sub CopyPaste

Dim Args(0) As new com.sun.star.beans.PropertyValue
Args(0).Name = "Hidden"
Args(0).Value = true

oDocumentToCopy = ThisComponent
oDesktop = createUnoService( "com.sun.star.frame.Desktop" )
oDocumentToPaste= oDesktop.loadComponentFromURL( "private:factory/swriter", "_blank", 0, Args() )

vCursorToCopy = oDocumentToCopy.CurrentController.getViewCursor ()

vCursorToPaste = oDocumentToPaste.CurrentController.getViewCursor ()
oStart = vCursorToPaste.getStart()
oText = vCursorToPaste.getText()


oText.insertTextContent(oStart,vCursorToCopy,true)



end Sub[/code]


gruss

mitschel

Hallo Stadtmensch,

per Makro?
Selbstverständlich.
Stichpunktartig: Coursor erstellen - Bereich markieren, auslesen, in Variable speichern, neues Dokument öffnen, aktivieren, Cursor erstellen und plazieren, Inhalt der Variablen an Cursor-Position eingeben.

Soviel zum Vorgehen. Jetzt fehlt der Code.
Wenn du schon was hast und nicht weiterkommst - posten.
Dann kann man bestimmt helfen.

Gruss
Thomas

Hallo,

ist es möglich einen ganzen Bereich in einem Writer-Dokument in ein anderes Writer-Dokument zu kopieren?