Seite 1 von 2
Kopieren und Einfügen
Verfasst: Do 26. Mai 2011, 15:38
von 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
Re: Kopieren und Einfügen
Verfasst: Sa 28. Mai 2011, 15:34
von Freelancer
Hallo,
Schnewittchen hat geschrieben: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
Re: Kopieren und Einfügen
Verfasst: Mo 30. Mai 2011, 10:10
von 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
Re: Kopieren und Einfügen
Verfasst: Mo 30. Mai 2011, 10:51
von Schnewittchen
Und wie kann man mehrere Makros bzw. Prozeduren hintereinander ausführen. Bei mir wird nur eine zur Zeit ausgeführt.
Re: Kopieren und Einfügen
Verfasst: Di 31. Mai 2011, 14:57
von Schnewittchen
Wenn ich das geöffnete Dokument speichere, kann ich es nachher nicht mehr mit OpenOffice öffnen.
Kannst du mir da helfen?
LG, Johanna
Re: Kopieren und Einfügen
Verfasst: Di 31. Mai 2011, 18:22
von Freelancer
Hallo,
Schnewittchen hat geschrieben: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
Schnewittchen hat geschrieben: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?
Schnewittchen hat geschrieben:Wie kann ich jetzt eine bestimmte Vorlage öffnen
Wie kann man eine Datei öffnen (geht auch mit einer Dokumentvorlage!)
Schnewittchen hat geschrieben:an die entsprechenden Stellen
Wie kann ich an eine Textmarke springen und Text eintragen?
Ich hoffe die Links bringen Dich ein Stück weiter.
Re: Kopieren und Einfügen
Verfasst: Mi 1. Jun 2011, 08:13
von Schnewittchen
Hallo, vielen Dank für deine Tips. Nein, die "Dateinamenserweiterung" habe ich nicht ausgewählt. Werde das mal probieren.
Liebe Grüße, Johanna
Re: Kopieren und Einfügen
Verfasst: Mi 1. Jun 2011, 13:18
von 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
Re: Kopieren und Einfügen
Verfasst: Mo 6. Jun 2011, 10:34
von 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
Re: Kopieren und Einfügen
Verfasst: Mo 6. Jun 2011, 11:57
von Freelancer
Hallo Johanna,
Schnewittchen hat geschrieben: Leider scheint mit der URL etwas nicht zu stimmen.
Was kommt denn für eine Fehlermeldung?
Schnewittchen hat geschrieben:das mit der Vorlage habe ich jetzt probiert.
...
...\Arztbrief.sxw
Eine Vorlage hat meines Wissens den aber Suffix "s
tw".
Unter welchem BS arbeitest Du?
Freelancer