Hi cegbuna,
For the data you've indicated, a wildcard Find/Replace should do the job, with:
Find = (')([0-9A-Za-z]{1,})([',]{1,2})
Replace = \2^p
The above will find any alphanumeric string preceded by a single quote and succeeded by a single quote and/or a comma, and delete everything except the alphanumeric string, which it then succeeds with a paragraph break. No vba required.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|