Option Explicit
' ************************************************************************************************
' Autor/en: http://www.online-vba.de - Marc Wershoven
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von www.online-vba.de!
' Original-Quelltext: www.online-vba.de/vba_vorlagenupdate.php
' ************************************************************************************************

Sub MWVorlagenInAllenDateienAktualisieren()
   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