Hallo Mase,

danke dir, diesen Weg kannte ich noch nicht.

So hats jetzt funktioniert!

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