Seite 1 von 1
in einem anderen Dokument lesen
Verfasst: Mi, 06.10.2010 18:09
von clag
Hallo Kenner und Könner,
wie kann ich innerhalb eines Makros vom aktuellen Writer Dokument in ein anderes Writer Dokument wechseln um dort zB mit Enum die Absätze zu durchforsten ?
Der Name des Dokument ist bekannt ?
Danke schonmal
Re: in einem anderen Dokument lesen
Verfasst: Mi, 06.10.2010 21:29
von gripslund
hej
ist nur ein Beispiel:
Code: Alles auswählen
' öffnen der Vorversion und KOPIEREN (Name, Vorname)
oDocumentVon=StarDesktop.loadComponentFromURL(sUrlV,oDatD,0,noArg())
oCtl=oDocumentVon.getCurrentController()
oFrameVon=oCtl.getFrame()
oSheetVon=oDocumentVon.Sheets.getByName("Daten")
oVonRange=oSheetVon.getCellRangeByPosition(3,8,9,8)
oDisp=createUnoService("com.sun.star.frame.DispatchHelper")
oCtl.Select(oVonRange)
oDisp.executeDispatch(oCtl,".uno:Copy","",0,noArg())
' Zieldokument öffnen und EINFÜGEN (Name, Vorname)
oDocumentNach=StarDesktop.loadComponentFromURL(sUrlN,oDatDn,0,noArg())
oCtl2=oDocumentNach.getCurrentController()
oFrameNach=oCtl2.getFrame()
oSheetNach=oDocumentNach.Sheets.getByName("Daten")
oCellNach=oSheetNach.getCellByPosition(3,8)
oDocumentNach.getCurrentController().Select(oCellNach)
oDisp.executeDispatch(oFrameNach,".uno:Paste","",0,noArg())
Das sind auch zwei Dokumente (in diesem Fall Calc-Dateien) gleichzeitig. (geht sicher eleganter)
Hilft das?
gripslund