Vorlagendatei in Dokumenten ersetzen

Option Explicit
' Original-Quelltext unter: https://www.online-vba.de/vorlagendatei-in-dokumenten-ersetzen
' Express-Hilfe für VBA unter https://www.online-vba.de/vba-expresshilfe
' Es gelten die Nutzungsbedingungen von Online-VBA.de

Public Sub OVBAde_VorlagenInAllenDateienAktualisieren()
  Dim sPfad As String
  Dim sDatei As String
  Dim oDocument As Object
    
    Application.ScreenUpdating = False
    
    sPfad = "C:\TEST\Sammlung\"
    sDatei = Dir(CStr(sPfad & "*.do*")) 'Alle Word Dateien im Verzeichnis
    
    Do While sDatei <> ""
        
        Set oDocument = Documents.Open(sPfad & sDatei, , False)
        With oDocument
            .AttachedTemplate = "C:\TEST\NeueVorlage.dotx" 'Neue Vorlage zuweisen
            .Save 'Speichern
            .Close 'Datei wieder schließen
        End With
        
        'die nächste Datei bitte...
        sDatei = Dir()
    Loop
    
    Set oDocument = Nothing
    
    Application.ScreenUpdating = True
    
    MsgBox "Fertig!"
End Sub