Sub AlleDateienimVerzeichnisAendern()
  ' Allen Dateien eines Verzeichnisses eine andere Dokumentvorlage zuweisen
 
  With Application.FileSearch
    .NewSearch
    .FileName = "*.doc"
    .LookIn = "\\blablab\"
    .SearchSubFolders = True
    If .Execute() > 0 Then
      ReDim strdateien(.FoundFiles.Count)
      ReDim strZugehOrdner(.FoundFiles.Count)
 
      'Durchläuft alle Dateien, die in dem obigen Verzeichnis vorhanden sind.
      For i = 1 To .FoundFiles.Count
 
        strdateien(i) = .FoundFiles(i)
        strZugehOrdner(i) = .FoundFiles(i)
        Do
          strdateien(i) = Right(strdateien(i), (Len(strdateien(i)) - InStr( _
            strdateien(i), "\")))
        Loop While InStr(strdateien(i), "\") > 0
 
        Documents.Open FileName:=strZugehOrdner(i)
        With ActiveDocument
          .AttachedTemplate = "\\ServerB\Templates\Letter.dot" 'ordnet die 
          ' Vorlage "Letter" zu
          .Save 'verhindert, dass Speichernachfrage kommt
          .Close
        End With
 
      Next i
    End If
  End With
End Sub