von giochips » Di, 04.03.2008 16:00
Hallo zusammen,
ich hab mehrere Musterbriefe in unserer Firma erstellt. Der allgemeine Teil wie Name der Firma, Telefonnummern, Registernummern usw ist immer gleich. Lediglich der Text der verschiedenen Musterbriefe ist immer ein anderer.
Wenn sich nun z.B. Veränderungen im Vorstand ergeben o.ä. muß ich jeden Musterbrief entsprechend abändern!!
Hab mir folgendes gedacht: Ich erstelle einen Rahmen in jeden Musterbrief anstelle dieser Angaben. Beim Öffnen eines neuen Musterbriefes wird in den Rahmen der Inhalt einer anderen Datei geladen. Somit muß ich solche Angabenänderungen nur an dieser einen, zentralen Stelle ändern. Funktioniert soweit... ich schaffe es nur nicht in dem Makro das beim Öffnen ausgeführt wird den Text in genau diesen Rahmen zu laden!! Er lädt den Text immer in den ersten Rahmen auf der Seite, welcher eigentlich für die Anschrift des Empfängers gedacht ist.
Kann mir jemand sagen wie ich den Text mit in einen bestimmten Rahmen laden kann? Oder hat jemand ne bessere Idee solche Briefkopfangaben zentral zu pflegen??
Hier noch mein Makro:
Code: Alles auswählen
sub AutoMergeBriefkopf
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:InsertDoc", "", 0, Array())
rem ----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Name"
args2(0).Value = "file:///J:/Dokumente/OpenOffice/Briefkopf.odt"
args2(1).Name = "Filter"
args2(1).Value = "writer8"
dispatcher.executeDispatch(document, ".uno:InsertDoc", "", 0, args2())
end sub
Vielen Dank!!!
giochips
Hallo zusammen,
ich hab mehrere Musterbriefe in unserer Firma erstellt. Der allgemeine Teil wie Name der Firma, Telefonnummern, Registernummern usw ist immer gleich. Lediglich der Text der verschiedenen Musterbriefe ist immer ein anderer.
Wenn sich nun z.B. Veränderungen im Vorstand ergeben o.ä. muß ich jeden Musterbrief entsprechend abändern!!
Hab mir folgendes gedacht: Ich erstelle einen Rahmen in jeden Musterbrief anstelle dieser Angaben. Beim Öffnen eines neuen Musterbriefes wird in den Rahmen der Inhalt einer anderen Datei geladen. Somit muß ich solche Angabenänderungen nur an dieser einen, zentralen Stelle ändern. Funktioniert soweit... ich schaffe es nur nicht in dem Makro das beim Öffnen ausgeführt wird den Text in genau diesen Rahmen zu laden!! Er lädt den Text immer in den ersten Rahmen auf der Seite, welcher eigentlich für die Anschrift des Empfängers gedacht ist.
Kann mir jemand sagen wie ich den Text mit in einen bestimmten Rahmen laden kann? Oder hat jemand ne bessere Idee solche Briefkopfangaben zentral zu pflegen??
Hier noch mein Makro:
[code]sub AutoMergeBriefkopf
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:InsertDoc", "", 0, Array())
rem ----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Name"
args2(0).Value = "file:///J:/Dokumente/OpenOffice/Briefkopf.odt"
args2(1).Name = "Filter"
args2(1).Value = "writer8"
dispatcher.executeDispatch(document, ".uno:InsertDoc", "", 0, args2())
end sub
[/code]
Vielen Dank!!!
giochips