Kopieren und Einfügen

[Schnewittchen]

Hallo, meine Praktikumsbetreuer stellen sich das so vor, dass man einfach einen Text per Makro automatisch kopiert, dann ein neues Dokument öffnet und den Text einfach automatisch einfügt und das mit nur einem Klick auf eine Schaltfläche.
Geht das überhaupt?
Liebe Grüße, Johanna

[Freelancer]

Hallo,

Geht das überhaupt?

Ja. Markiere einen Text im Quelldokument und starte folgendes Makro:

Code: Alles auswählen

Sub Main
Dim oDoc as Object
Dim sText as String

	oDoc=thisComponent
	oViewCursor = oDoc.GetCurrentController. ViewCursor
	sText = oViewCursor.string

	Dim mArgs()
	oDocument = StarDesktop.loadComponentFromURL ("private:factory/swriter","_blank", 0, mArgs())  
	otext = oDocument.text
	ocursor = otext.createtextcursor()
	otext.insertString(ocursor, sText,false)
End Sub

Freelancer

[Schnewittchen]

Hall, vielen Dank. Es funktioniert. Wie kann ich jetzt eine bestimmte Vorlage öffnen und darin einen markierten und kopierten Text automatisch einfügen, an die entsprechenden Stellen?
Liebe Grüße, Johanna

[Schnewittchen]

Und wie kann man mehrere Makros bzw. Prozeduren hintereinander ausführen. Bei mir wird nur eine zur Zeit ausgeführt.

[Schnewittchen]

Wenn ich das geöffnete Dokument speichere, kann ich es nachher nicht mehr mit OpenOffice öffnen.
Kannst du mir da helfen?
LG, Johanna

[Freelancer]

Hallo,

Und wie kann man mehrere Makros bzw. Prozeduren hintereinander ausführen. Bei mir wird nur eine zur Zeit ausgeführt.

Code: Alles auswählen

Sub Mehrere_Subs_nacheinander
	Makro1 'Aufruf Makro1
	Makro2 'Aufruf Makro2
	Makro3 'Aufruf Makro3
End Sub

Sub Makro1
	msgbox "Makro1 wird ausgeführt"
End Sub


Sub Makro2
	msgbox "Makro2 wird ausgeführt"
End Sub


Sub Makro3
	msgbox "Makro3 wird ausgeführt"
End Sub

Wenn ich das geöffnete Dokument speichere, kann ich es nachher nicht mehr mit OpenOffice öffnen.
Kannst du mir da helfen?

Leider nein, da ich das erzeugte Dokument nach dem Speichern und Schließen ohne Probleme wieder öffnen kann.

Oder vielleicht doch? Hast Du unten im Speichern-Dialog "Automatische Dateinamenserweiterung " ausgewählt?

Wie kann ich jetzt eine bestimmte Vorlage öffnen

Wie kann man eine Datei öffnen (geht auch mit einer Dokumentvorlage!)

an die entsprechenden Stellen

Wie kann ich an eine Textmarke springen und Text eintragen?

Ich hoffe die Links bringen Dich ein Stück weiter.

[Schnewittchen]

Hallo, vielen Dank für deine Tips. Nein, die "Dateinamenserweiterung" habe ich nicht ausgewählt. Werde das mal probieren.
Liebe Grüße, Johanna

[Schnewittchen]

Hallo, irgendwie will mein Programm diese Zeile nicht ausführen. Wo liegt der Fehler?
Dim Cursor as Object
Cursor_aktivieren(oText,oCursor,oViewCursor)
Liebe Grüße

[Schnewittchen]

Hallo, das mit der Vorlage habe ich jetzt probiert. Leider scheint mit der URL etwas nicht zu stimmen.
url=converttourl("C:\Dokumente und Einstellungen\Praktikant\Eigene Dateien\Praktikum 2011\Befunde\Arztbrief.sxw")
dim myFileProp() as new com.sun.star.beans.PropertyValue
oDocument = StarDesktop.loadComponentFromURL(url, "_blank", 0, myFileProp()

Kannst du mir da helfen?
Liebe Grüße, Johanna

[Freelancer]

Hallo Johanna,

Leider scheint mit der URL etwas nicht zu stimmen.

Was kommt denn für eine Fehlermeldung?

das mit der Vorlage habe ich jetzt probiert.
...
...\Arztbrief.sxw

Eine Vorlage hat meines Wissens den aber Suffix "stw".

Unter welchem BS arbeitest Du?

Freelancer