Макрос не собирает дефисы внутри текста

Question

Ошибка с макросом, который работал ранее сегодня.У нас есть макрос, который ищет в текстовом документе определенные слова и меняет тип шрифта при его обнаружении.По какой-то причине мы добавили новое слово / фразу, которая содержит дефис, например this-word.По обе стороны от дефиса нет места, и я не могу понять, почему он не обнаружит.Ниже приведен пример кода.

       With Selection.Find
        .Text = "hyphenated-word"
        .Replacement.Text = ""
        .Replacement.Font.Name = "Whitney Bold"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll

Для всех намерений и целей сам код работает с другими словами, такими как «ваш» и т. Д., Но с этим он не работает.Есть ли какое-то правило, которого мне не хватает?