Find & Replace special characters

Question

Hello,

I am trying to find & replace all words containing any of the following characters, and format them into a different font (EB Garamond, since normal Garamond font doesn't include them).

Special characters: ḍḏŷḥṭṯẓṣšāīūḌḎŶḤṬṮẒṢŠĀĪŪʿʾ

I've done a search with wildcards, searching for [ḍḏŷḥṭṯẓṣšāīūḌḎŶḤṬṮẒṢŠĀĪŪʿʾ] and replacing all characters with the wanted font. However, that only changes the characters, and I would like to change all the words containing those characters.

Is there a way of searching and replacing all words containing any of those characters?

Thank you very much,

Ignacio

Answer 1

Try using the following code in a macro

Selection.HomeKey wdStory

With Selection.Find

    Do While .Execute(FindText:="[ḍḏŷḥṭṯẓṣšāīūḌḎŶḤṬṮẒṢŠĀĪŪʿʾ]", Forward:=True, _

    MatchWildcards:=True, Wrap:=wdFindStop, MatchCase:=True) = True

        With Selection

            .Words(1).Font.Name = "EB Garamond"

            .Collapse wdCollapseEnd

        End With

    Loop

End With

End Sub

Answer 2

There must be a Sub statement which corresponds with End Sub in Doug's example.

You can type Sub MyFindandReplaceMacro on the line before Selection.HomeKey wdStory.

Answer 3

Thank your for your anwser.

I have created a macro and pasted the code but it shows like this, and then it says "invalid outside procedure". What should I do?