Sub MFindReplace()
  Dim aDoc As Document, strFindText As String, strReplaceText As String
  strFindText = "Finders"
  strReplaceText = "Keepers"
  For Each aDoc In Application.Documents
    With aDoc.Range.Find
      .Text = strFindText
      .Replacement.Text = strReplaceText
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute Replace:=wdReplaceAll
    End With
  Next aDoc
End Sub