Небольшой скриптик для VBA (MS Word)

Здравствуйте всем!

Есть перевод в ворде в следующем формате:

{0>XXX1XXX2XXX3

Посередине вместо 0 может быть любая цифра от 0 до 100.

Перевод в таком формате находится и в колонтитулах, и в таблицах, и в заголовках.

Наш клиент потребовал сдачи текста в виде:

YYY1

XXX1

YYY2

XXX2

YYY3

XXX3

Формат и положение всех XXX и YYY нужно сохранить, только переставить местами и разнести на разные строки.