von mikeleb » Di, 07.01.2025 19:54
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
- Dateianhänge
-
- makro_word_merge.odt
- (25.76 KiB) 125-mal heruntergeladen
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]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[/code]