Преобразование примечаний (комментариев) в сноски

Сергей интересуется:

Есть возможность преобразовать все примечания в тексте в сноски. Вот макрос, который решает эту задачу.

Sub Comments2Footnotes()
'преобразование примечаний в сноски
'помощь Steven M.
Dim actDoc As Document
Dim oRange As Range
Dim comm As String
Dim fn As Footnote
Dim i As Long
Set actDoc = ActiveDocument
For i = actDoc.Comments.Count To 1 Step -1
   comm = actDoc.Comments(i).Range.Text
   Set oRange = actDoc.Comments(i).Scope
   oRange.Select
      With Selection
         If Right(.Range, 1) = Chr(32) Then
            .MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend  'удаляем пробелы в конце дипапзона примечания, если они есть
            Set oRange = .Range
         End If
      End With
   oRange.Collapse wdCollapseEnd
   actDoc.Comments(i).Delete
   Set fn = actDoc.Footnotes.Add(oRange)
   fn.Range.Text = comm
Next i
Selection.Collapse wdCollapseStart
End Sub