Hi redzan,

Apart from the ###, which you haven't told us anything about, this can be done without a macro, using a wildcard Find/Replace, where:
Find = STUDY: ([!^13]{1,})*: ([!^13]{1,})*: ([!^13]{1,})*: ([!^13]{1,})*: ([!^13]{1,})*: ([!^13]{1,})
Replace = \1,\2,\3,\4,\5,\6
Assuming you have multiple records of 6 fields each, each set will be in a new paragraph.

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