Sub ReplaceTextInHeader()
Dim oHF As HeaderFooter
Dim oSection As Section
Dim myfle
PathToUse As String
PathToUse = "C:\Test\"
myfile = Dir(PathToUse & "*.doc")
Do While myfle <> ""







  Documents.Open (PathToUse & myfile)
     For Each oSection In ActiveDocument.Sections
        For Each oHF In oSection.Headers
           oHF.Range.Text = Replace(oHF.Range.Text, "Revision", "Final")
        Next
     Next
  ActiveDocument.Close SaveChanges:=wdSaveChanges
  myfile = Dir()
Loop
End Sub