danke dir, diesen Weg kannte ich noch nicht.
Sub ConvertDocsToDocx()
Dim sourceFolder As String
Dim targetFolder As String
Dim fileName As String
Dim sourceDoc As Document
Dim targetDoc As Document
' Setze den Quell- und Zielordner
sourceFolder = "C:\Users\sbutz\Desktop\Test2\"
targetFolder = "C:\Users\sbutz\Desktop\Test2 neu\"
' Überprüfe, ob der Quellordner existiert
If Dir(sourceFolder, vbDirectory) = "" Then
MsgBox "Der Quellordner existiert nicht.", vbExclamation
Exit Sub
End If
' Überprüfe, ob der Zielordner existiert, falls nicht, erstelle ihn
If Dir(targetFolder, vbDirectory) = "" Then
MkDir targetFolder
End If
' Schleife durch alle .doc-Dateien im Quellordner
fileName = Dir(sourceFolder & "*.doc")
Do While fileName <> ""
' Öffne das Quelldokument
Set sourceDoc = Documents.Open(sourceFolder & fileName)
' Konvertiere das Dokument in das .docx-Format
sourceDoc.Convert
sourceDoc.SaveAs2 targetFolder & Replace(fileName, ".doc", ".docx"), WdSaveFormat.wdFormatXMLDocument
' Schließe das Quelldokument
sourceDoc.Close
' Gehe zum nächsten Dokument
fileName = Dir
Loop
MsgBox "Die Konvertierung wurde abgeschlossen.", vbInformation
End Sub