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

409
Mxrcovani

Ich habe meine Kommentare mit dem folgenden Makro von tohuwawohu in Fußnoten verwandelt (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 eines 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
0

1 Antwort auf die Frage

0
Tanya

(Nehmen Sie für dieses Beispiel an, 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, wird ein Leerzeichen zwischen dem Punkt und der Fußnotenreferenz gelassen. Sie können 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 durch das Zurückschieben von 2 Zeichen die Fußnote vor dem Punkt setzen:

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

Verwandte Probleme