in einem anderen Dokument lesen

[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

[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