Mehrere Dateien gleichzeitig einfügen

[Delabarquera]

Hallo!

Bitte erschlagt mich nicht, wenn das Thema gleich nebenan vorhanden ist. (Dann bitte nur einen Hinweis.) Es ist so, dass ich diese Frage, im Calc-Forum, glauch ich, gelesen habe. Da ist sie aber von einem Mod gesperrt worden, weil es ein Doppelposting war. Aber als ich mit Wortfolgen gesucht habe, habe ich den Beitrag im Writer-Forum nicht finden können.

Anyway. Es geht um eine einfache Sache: Ich habe ungefähr 120 kleinere Dateien, fein säuberlich über den Dateinamen sortiert, und ich möchte jetzt nicht über "Datei einfügen" alle einzeln zusammenführen. Wenn ich "Datei einfügen" aufrufe, kann ich aber nicht mehre Dateien markieren und dann aufrufen, sodass sie hintereinander in das leere Dokument zusammengeführt werden.

Geht das, was ich da will, grundsätzlich eben doch nur "eine nach der anderen" oder übersehe ich einfach was?

Grüße! D.

[komma4]

fein säuberlich über den Dateinamen sortiert

Mmh, wenn sie nummeriert sind, geht folgendes Makro (für Textdateien... oder sind es OOo-Dokumente?)

Code: Alles auswählen

Sub de58010
' 2012-11-18

' Pfadname, wo die Dateien liegen
sPFAD = "/zentrale/daten/testdaten/"

' für Textdateien
DIM aARGS(0) AS NEW com.sun.star.beans.PropertyValue
aARGS(0).Name = "Filter"
aARGS(0).Value = "Text (encoded)"

' Objekt des sichtbaren Cursors
oViewCursor = _
 ThisComponent.getCurrentController().getViewCursor()

' Textcursor aus Viewcursor
oTextCursor = _
 ThisComponent.getText().createTextCursor()

' Textcursor setzen
oTextCursor.gotoRange( oViewCursor , FALSE )


' Schleife für nummerierte Dateinamen
FOR i = 1 TO 3

oTextCursor.insertDocumentFromURL( ConvertToURL( sPFAD & "dateiname" & i & ".txt" ) , aARGS() ) 

oTextCursor.gotoEnd( FALSE ) 

NEXT i

End Sub

Hilft Dir das weiter?