Recently I found some success in removing duplicate words in VBA, the problem I am running into is that it seems to be changing instances of

(example): BOB A ANTONIO to BOB ANTONIO
BOB E EDWARDS to BOB EDWARDS

but NOT something like BOB F FLORES. I am assuming that for whatever reason it goes after double vowels, but I want to keep names as is, working only when its duplicate like BOB A ANTONIO BOB A ANTONIO.

I have been using .FindAndReplaceOne “(<*>)?1”, “1”, currentRange

I’ve changed the ? to @ or even just a space but the issue I run into is always the vowels. When I use the find replace in the Microsoft Word doc itself it finds the E E in E EDWARDS, but how do I make not do that? any help would be appreciated.

Note: I have the regex set within a range so that it only works on the first row of the paragraph I am working with, so I am not trying to delete word throughout the whole document.