Скрипт для ворда, позволяющий переносить сноски ворда в тело текста и выделять красным.

Sub footnoteToText()
' перенос сносок word в текст
Dim actdoc As Document
Dim fn As Word.Footnote
Dim rngFN As Word.Range
Dim i As Long
Set actdoc = ActiveDocument
'перенос идет, начиная с последней сноски
For i = actdoc.Footnotes.Count To 1 Step -1
Set fn = actdoc.Footnotes(i) 'запоминаем сноску
Set rngFN = fn.Reference 'ссылка на сноску (знак сноски)
rngFN.Collapse wdCollapseEnd 'переход в конец слова со знаком сноски
'вставляем текст сноски после знака сноски с сохранением исходного
форматирования
rngFN.FormattedText = fn.Range.FormattedText
rngFN.InsertBefore Chr(32) & "(" 'добавляем открывающую скобку перед
текстом сноски
rngFN.InsertAfter ")" 'теперь закрывающую скобку
'форматируем текст сноски, в данном случае меняем цвет на красный
rngFN.FormattedText.Font.Color = wdColorRed
fn.Delete 'удаляем сноску
Next i
End Sub