автоматическая простановка сносок

Здравствуйте, друзья!
Подскажите, пожалуйста, как мне решить такую проблему:
Имеется текст, в котором некоторые фрагменты как-то выделены (цветом,
начертанием, шрифтом или как-то иначе).
Эти фрагменты нужно превратить в сноски. Хотелось бы как-то это
автоматизировать с помощью макроса для Ворда, так как этих фрагментов
очень много. Вручную преобразовывать каждый слишком утомительно.