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

333
Mxrcovani

Я превратил свои комментарии в сноски, используя следующий макрос от 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
0

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

0
Tanya

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

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

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

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

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

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