You don't need a macro for this - it can be done with Find/Replace. Just make sure the 'Match case' option is checked.

Alternatively, use a wildcard Find/Replace, where:
Find = vi>(?)
Replace = Vi\1

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