Sub NonBreakSpace()
Application.ScreenUpdating = False



Options.DefaultHighlightColorIndex = wdTurquoise
Selection.Find.Replacement.Highlight = True

Dim StrFR As String, i As Long
StrFR = "[<(et)> <(al)>]|\1^s\2"

With ActiveDocument.Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.Format = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Replacement.Highlight = wdTurquoise

For i = 0 To UBound(Split(StrFR, "|")) Step 2
.text = Split(StrFR, "|")(i)
.Replacement.text = Split(StrFR, "|")(i + 1)
.Execute Replace:=wdReplaceAll
Next
End With

Application.ScreenUpdating = True
End Sub