You could just use a wildcard Find, where:
Find = ^13([A-z]@>)[!^13]@^13\1
The last-highlighted word will the be same as the first-highlighted word. No macros required.