You could try a wildcard Find/Replace with any of:
Find = [^t]{1,}
Replace = ^p

Find = [^t]{1,}
Replace = ^l

Find = [^t]{1,}
Replace = ^t

Find = [^t]{1,}
Replace = ^32

Since we don't know your exact output requirements, we also don't which will be right for you.

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