Dim Path As String, FileName As String, Doc As Document
Path = "v:\qqq\"
'Application.ScreenUpdating = False

FileName = Dir(Path + "*.doc*")
Do Until FileName = ""
  Set Doc = Documents.Open(Path + FileName)
  With Doc.Range.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "Территориальный филиал «Новосибирский»"
    .Replacement.Text = "Филиал «Екатеринбургский»"
    .Forward = True
    .Wrap = wdFindContinue
    .MatchCase = True
    .Execute Replace:=wdReplaceAll
  End With
  Doc.Save
  Doc.Close
  Set Doc = Nothing
  FileName = Dir
Loop
'Application.ScreenUpdating = True