Преобразование сносок в обычный текст

На форуме был задан вопрос о возможности преобразования сносок в обычный текст (с небольшим форматированием). Я нашел решение и предлагаю его в виде макроса.

Sub fnToText()
'преобразование сносок в обычный текст
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) & Chr(151) & Chr(32)  'вставляем длинное тире
  fn.Delete 'удаляем сноски
Next i
End Sub

Результат преобразования можно видеть на скриншоте: