Como posso mover a referência da nota de rodapé do meio do parágrafo para o final? Word 2013

Question

Eu transformei meus comentários em notas de rodapé usando a macro a seguir por tohuwawohu (muito útil, cara, obrigado) mas por causa de meus comentários, descobriu-se que a maioria das referências (os números no texto 1, 2 etc) em lugares desajeitados no meio da frase.

Existe uma macro ou alguma outra maneira que eu possa movê-la no final da frase / parágrafo?

Link e macro:

( Como posso converter automaticamente todos os comentários em um documento do Word 2010 para notas de rodapé? )

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

(assumindo para este exemplo que o comentário está dentro de um único parágrafo / frase) Edite o Intervalo na primeira linha de código no seu loop For.

Para colocar no final do parágrafo que o comentário está em:

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

Para colocar no final da frase - se você usar 2 espaços após o ponto final, isso deixará um espaço entre o ponto final e a referência da nota de rodapé. Você pode adicionar um segundo .Anterior no final (ou seja, .ÚltimoAnteriorAnterior), mas se a sua sentença estiver no final de um parágrafo, voltar 2 caracteres pode colocar a nota de rodapé antes do ponto final:

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