You could use a wildcard Find/Replace, where:
Find = (<*>)?\1
Replace = \1
Note: This assumes there is always a single character separating the repeated words and that they're of the same case.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]