Sub Demo() 
     '
     ' demo Macro
     '
    Application.ScreenUpdating = False 
    With ActiveDocument.range 
        With .find 
            .ClearFormatting 
            .Replacement.ClearFormatting 
            .Text = "["i" & ChrW(720), ChrW(618), ChrW(650), u, e, i, ChrW(601), ChrW(601) & ChrW(720), ChrW(604) & ChrW(720), ChrW(596) & ChrW(720), ChrW(596), æ, ChrW(652), ChrW(593) & ChrW(720), ChrW(618) & ChrW(601), "e" & ChrW(618), ChrW(650) & "e", ChrW(596) & ChrW(618), ChrW(601) & ChrW(650), "o" & ChrW(650), "e" & ChrW(601), "a" & ChrW(618), "a" & ChrW(650)]" & ChrW(9700) & "[p, b, t, d, "t" & ChrW(643), "d" & ChrW(658), k, g, f, v, ChrW(952), ð, s, z, ChrW(643), ChrW(658), m, n, ChrW(331), h, l, r, w, j]*>" 
            .Replacement.Text = "" 
            .Forward = True 
            .Wrap = wdFindStop 
            .Format = False 
            .MatchWildcards = True 
            .Execute 
        End With 
        Do While .find.Found 
            .Borders.Enable = True 
            .Collapse wdCollapseEnd 
            .find.Execute 
        Loop 
    End With 
    Application.ScreenUpdating = True 
End Sub