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

4095
Nathan Fellman

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

5

1 ответ на вопрос

4
tohuwawohu

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

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

Похожие вопросы