У Даниэля есть научная статья, в которой много сносок. Прямо сейчас у него есть сноски в конце каждого предложения. Он хотел бы объединить все сноски в абзаце в одну сноску в конце абзаца. Он задается вопросом, есть ли способ сделать это автоматически.

Невозможно сделать это автоматически, но вы можете сделать это с помощью макроса. Все, что нужно сделать макросу, — это просмотреть каждый абзац в документе и посмотреть, есть ли в нем какие-либо сноски. Затем, если это так, он объединяет их, удаляет сноски и добавляет новую сноску с объединенным текстом в конце абзаца. Вот макрос, который делает именно это:

Sub MoveFootnotes()

Dim p As Paragraph     Dim iFN As Integer     Dim J As Integer     Dim oCurPar As Object     Dim sTemp As String

For Each p In ActiveDocument.Paragraphs         sTemp = ""

iFN = p.Range.Footnotes.Count         For J = iFN To 1 Step -1             sTemp = p.Range.Footnotes(J).Range.Text & " " & sTemp             p.Range.Footnotes(J).Delete         Next J         sTemp = Trim(sTemp)

If sTemp > "" Then             Set oCurPar = p.Range             oCurPar.Collapse Direction:=wdCollapseEnd             oCurPar.MoveEnd Unit:=wdCharacter, Count:=-1             ActiveDocument.Footnotes.Add Range:=oCurPar, Text:=sTemp         End If     Next p End Sub

Обратите внимание, что макрос объединяет текст сноски для каждого абзаца в строку sTemp. Затем это используется при добавлении сноски в конец абзаца. Это действительно является недостатком макроса — он копирует только текст, а не его форматирование.

Например, если у вас есть несколько сносок, в которых есть ссылки на книги, велика вероятность, что названия этих книг выделены курсивом.

После запуска макроса курсив исчезнет, ​​хотя весь текст останется. (Насколько мне известно, нет способа перенести форматирование без изменений в новую сноску.)

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (13767) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365.