Mehrere Word-Dateien zusammenfügen und bei OO einfügen

[Delabarquera]

Hallo zusammen!

Erst einmal: Ich habe hier und anderswo relativ lange herumgesucht und bin nicht fündig geworden. Wenn ich was übersehen habe: Link genügt.

Ich schildere mein Problem mal praktisch: Ich habe ein Unterverzeichnis mit vielen einzelnen Word-Dateien, ein Labortagebuch, bei dem jeder Tag in einer einzelnen Datei steht. Ich möchte diese vielen Dateien in ein einziges OO-Writer-Dokument bringen. Wie würdet ihr vorgehen? Jede Datei einzeln einzufügen geht natürlich, dauert halt sehr lange und ist keine sonderlich angenehme Arbeit.

Gefunden habe ich das:

https://products.groupdocs.app/de/merger/word

Weil ich aber schon für so vieles bezahle, möchte ich wenn möglich um diese "Anschaffung" herumkommen.

Viele Grüße! Und 2025 Glück auf! D.

[Mondblatt24]

Antwort gelöscht.

[Delabarquera]

Done. Dank und Sorry, keine Ahnung, warum das gedoppelt wurde.

[mikeleb]

Hallo,
das ließe sich wahrscheinlich per Makro realisieren (je nachdem, wie komplex die Word-Dateien sind). Wenn ich mal von relativ einfachen Texten ausgehe hieße das:
Alle Worddateien des gewünschten Verzeichnisses nacheinander öffnen, jeweils Inhalt in odt-Datei einfügen, Seitenumruch, weiter ...

Code: Alles auswählen

Sub Main

	Dim dummy() as new com.sun.star.beans.PropertyValue

	oDoc=thiscomponent
	oCursor = oDoc.text.createtextcursor
	'welcher Ordner?
	folder="C:\"
	sFolderUrl = ConvertToUrl( Folder )
	oSimpleFileAccess = createUnoService( "com.sun.star.ucb.SimpleFileAccess" )
	aFolders = oSimpleFileAccess.getFolderContents( sFolderUrl,true )
	For i = LBound( aFolders ) To UBound( aFolders )
		sFile = aFolders( i )
		If not oSimpleFileAccess.isFolder( sFile ) Then
			If right(sFile,4)=".doc" or right(sFile,5)=".docx" then
				oCursor.InsertDocumentFromUrl(sFile,Dummy())
				oCursor.gotoend(false)
				oCursor.PageDescName = oCursor.PageStyleName
			End if
		End if
	Next      

End Sub

[Delabarquera]

Dank für das Makro! Ich probier es morgen mal aus. - Grüße! D.