The simple solution for a Find/Replace macro to change the boxes to tabs is to specify:
.Text = ChrW(12288)
.Replacement.Text = "^t"

The:
.Text = "[" & ChrW(61472) & "-" & ChrW(61695) & "]"
in the code I posted tells Word to look for characters having values in the 61472 to 61695 range. You shouldn't modify that part of the code, since all it's doing is finding all locked symbols using Word's protected code page area and unlocking them so you can access them with whatever other code you're using.

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