The code in post #25 already executes a Find/Replace, including in headers & footers, in all documents in a folder. All you need do is modify the Update(Rng As Range) sub, thus:
Code:
Sub Update(Rng As Range)
With Rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Format = False
.Forward = True
.Wrap = wdFindContinue
.Text = "ICU Pavilion"
.Replacement.Text = "ICU Pavilion Increment 5"
.Execute Replace:=wdReplaceAll
.Text = "DR 26"
.Replacement.Text = "DR 44"
.Execute Replace:=wdReplaceAll
.Text = "10/03/2022"
.Replacement.Text = "01/10/2023"
.Execute Replace:=wdReplaceAll
End With
End Sub