Почему то не работают вот эти макросы в Word 2007

извиняюсь, макрос про таблицы работает, а вот про преобразование примечаний в сноски, - текст, наверное не такой должен быть чтобы выполнить этот скрипт:

[spoiler]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  'o'a"a`e"y"a*i` i"?i^a'a*e"u^ a^ e^i^i'o"a* a"e`i"a`i"c,i^i'a` i"?e`i`a*?a`i'e`y", a*n~e"e` i^i'e` a*n~o`u"
            Set oRange = .Range
         End If
      End With
   oRange.Collapse wdCollapseEnd
   actDoc.Comments(i).Delete
   Set fn = actDoc.Footnotes.Add(oRange)
   fn.Range.Text = comm[/spoiler]
на прилагаемом образце текста этот макрос не работает

Отредактировано Kristo4 (28.01.2010 13:53:49)

Да, я догадался что то что в тексте обозначено надстрочными символами и текст после слова Примечание под номерами 1, 2, 3,.. не является Примечанием как таковым.
Мне надо чтобы из такого текста Примечаний сделать обычные сноски, может есть такой макрос?

Отредактировано Kristo4 (29.01.2010 05:48:37)

Ну так он-то у меня и не работает.