[Office] простановка сносок

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