Как я могу переместить ссылку сноски из середины абзаца в конец? Word 2013

Question

Я превратил свои комментарии в сноски, используя следующий макрос от tohuwawohu (очень полезный человек, спасибо), но из-за того, как мои комментарии были размещены, оказалось, что большинство ссылок на сноски (цифры в тексте 1,2 и т.д.) Находятся в неудобных местах в середине предложения.

Есть ли макрос или какой-то другой способ, которым я могу переместить его в конце предложения / абзаца?

Ссылка и макрос:

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

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

Answer 1

(при условии, что для этого примера этот комментарий находится в пределах одного абзаца / предложения) Отредактируйте Range в первой строке кода в цикле For.

Поместить в конце абзаца комментарий:

oDoc.Footnotes.Add Range:=oComment.Scope.Paragraphs(1).Range, Text:=oComment.Range.Text

Чтобы поставить в конце предложения - если вы используете 2 пробела после полной остановки, то это оставит пробел между полной остановкой и ссылкой на сноску. Вы могли бы добавить секунду.Предыдущий в конце (т.е.Прошлой.Предыдущий.Предыдущий), но затем, если ваше предложение находится в конце абзаца, перемещение на 2 символа назад может поставить сноску перед полной остановкой:

  oDoc.Footnotes.Add Range:=oComment.Scope.Sentences(1).Characters.Last.Previous, Text:=oComment.Range.Text