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

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

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 

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

  • Microsoft Word 2010 сбой при открытии второго документа Word, пока он еще открыт
  • Вставляемое изображение скрывается за текстом, даже если оно установлено как встроенное
  • Word 2010 сохраняет эскизы и теги только для «Word 97-2003». Не для «документов Word»
  • Остановить Microsoft Word 2010 от сглаживания скриншотов?
  • Уравнения Word 2010 меняют без моего одобрения
  • Улучшен формат цитирования APA в Word 2007/2010?
  • Как использовать стили второго уровня второго списка в Microsoft Word
  • Word 2010 - перерыв страницы перед H2, кроме после H1
  • Шаблон Word 2010 с автоматически обновляемыми полями
  • Ошибка повторения текста в Word
  • Office Word. Как открыть один и тот же документ в отдельных окнах?
  • Давайте будем гением компьютера.