The string 'hoofdstuk' appears in the code 10 times - you've only changed one instance.
Personally, I'd be inclined to leave the code alone in that regard and merely add another line at the end to change all occurrences of 'hoofdstuk' in the document to
'jesaja'.For that, you could add:
Code:
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Text = "([\</])hoofdstuk"
.Replacement.Text = "\1jesaja"
.Wrap = wdFindContinue
.Format = False
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
before:
.Style = wdStyleNormal
PS: When posting code, please use the code tags, indicated by the # symbol on the posting menu, to enclose your formatted code.