CODE-SCHNIPSEL

Option Explicit
' ****************************************************************
' Autor/en und Original-Quelltext unter:
' https://www.online-vba.de/vba_vorlagenupdate.php
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von https://www.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