Removing a repeated words

hi,

I need a macro for removing a immediate duplicate words in a documents.

Example :

Input: financial income income Input : interest income (here no repeated word income so remain same anywhere in the doc)
Output: financial income Output: interest income (here no repeated word income so remain same anywhere in the doc)

Input: unit: unit: INR
Output: unit: INR

Input : gain gain from sales
Output : gain from sales


In the above cases immediate repeated words removed manully like income, unit: & gain
If there is no same repeated word it remains constant and it has not to be changed in anywhere.

Ex: income from sales, unit: INR, gain from investments are replaced above words & will not be reflect anywhere in a document if it is having a single words income, unit:, gain.

Wildcard Find/Replace : Please check and make this is in macro... Wild card is not working, please check and review once.

Find = (<*>?@)\1

Replace = \1


please do the needful ...