Sub subChangeTemplate()
    Dim strFile As String
    
    strFile = Dir("D:\1\")
    Do Until strFile = ""
        ChangeFileOpenDirectory "D:\1\"
        Documents.Open FileName:=strFile, ConfirmConversions:=False _
          , ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
          PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
          WritePasswordTemplate:="", Format:=wdOpenFormatAuto

        With ActiveDocument
            .UpdateStylesOnOpen = False
            .AttachedTemplate = _
              "C:\Documents and Settings\UserName\Application Data\Microsoft\Шаблоны\Normal.dot"
            .Save
            .Close
        End With

        strFile = Dir
        
    Loop
End Sub