Wie kann ich die Fußnotenreferenz von der Mitte des Absatzes zum Ende verschieben? Wort 2013

0

Ich habe meine Kommentare mit dem folgenden Makro von tohuwawohu in Fußnoten umgewandelt (sehr hilfreich, danke Mann), aber aufgrund meiner Platzierung meiner Kommentare stellte sich heraus, dass die meisten Fußnotenreferenzen (die Zahlen in Text 1, 2 usw.) an unbequemen Stellen waren mitten im Satz

Gibt es ein Makro oder eine andere Möglichkeit, es am Ende des Satzes / Absatzes zu verschieben?

Link und Makro:

( Wie kann ich alle Kommentare in einem Word 2010-Dokument automatisch in Fußnoten konvertieren? )

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
Mxrcovani
quelle

Antworten:

0

(In diesem Beispiel wird angenommen, dass der Kommentar innerhalb eines einzelnen Absatzes / Satzes liegt.) Bearbeiten Sie den Bereich in der ersten Codezeile Ihrer For-Schleife.

Am Ende eines Absatzes, in dem sich der Kommentar befindet:

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

Am Ende eines Satzes setzen - wenn Sie zwei Leerzeichen nach dem Punkt verwenden, bleibt ein Leerzeichen zwischen dem Punkt und der Fußnotenreferenz. Sie könnten am Ende ein zweites .Previous hinzufügen (z. B. .Last.Previous.Previous). Wenn sich Ihr Satz jedoch am Ende eines Absatzes befindet, können Sie die Fußnote vor dem Punkt mit 2 Zeichen zurückschieben:

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