Word VBA: восстановление исходной заглавной буквы в акронимах после заглавной буквы каждого слова

Question

@Rich Michaels имеет этот код для выделения аббревиатур с дополнительной заглавной буквой в `` словах '' /questions/6630187/najti-slova-s-bolee-chem-odnoj-zaglavnoj-bukvoj-v-slove-vba/6630218#6630218

Что мне нужно сделать дальше, так это

1. Не выделять аббревиатуры , содержащие более 1 заглавной буквы, а вместо этого
2. Извлеките такие уникальные слова в массив и используйте заглавные буквы этого списка для каждого слова, чтобы восстановить такие слова в их исходное состояние с помощью поиска и замены, возможно.

Я хочу интегрировать этот код во что-то вроде следующего ... Не могли бы вы помочь?

      Sub Capitalize_First_Letter_Of_Each_Word_Except_For_Acronmyns_In_Doc()

    ActiveDocument.Range.Case = wdTitleWord

End Sub

Вы видите, что это преобразование всех аббревиатур в маленькие заглавные, кроме первых букв ... Так что ваша помощь в исправлении этого будет очень признательна.