Как я могу автоматически преобразовать все комментарии в документе Word 2010 в сноски?

Question

Я начал писать комментарии к некоторому тексту в Word 2010, и я написал так много, что они не помещаются на странице. Я хочу преобразовать их в сноски, чтобы они хорошо печатались. Есть ли способ конвертировать комментарии в сноски, не делая сноски по одному?

Answer 1

AFAIK нет встроенной функциональности, но это простая задача для макроса VBA (который я нашел здесь):

    Sub comment2footnote()
      Application.ScreenUpdating = False
      Dim oDoc As Document, oComment As Comment
      Set oDoc = ActiveDocument
      For Each oComment In ActiveDocument.Comments
          oDoc.Footnotes.Add Range:=oComment.Scope, Text:=oComment.Range.Text
          oComment.Delete
      Next
      Application.ScreenUpdating = True
    End Sub

Это вставит сноски для каждого комментария, скопирует текст комментария и удалит комментарий впоследствии.