Как преобразовать все концевые сноски в Обычный текст в Word

Концевые сноски в Word обычно используются для цитирования или дополнительных ссылок, но иногда их нужно преобразовать в обычный текст — например, чтобы упростить редактирование или форматирование. Ручное копирование и вставка каждой сноски быстро становится утомительным процессом, особенно в объёмных документах. В этом руководстве представлены три эффективных способа преобразования концевых сносок в обычный текст:

Преобразовать конечные сноски в текст вручную

Преобразовать конечные сноски в текст с помощью Kutools для Word

Преобразовать конечные сноски в текст с помощью VBA

---

Преобразовать конечные сноски в текст вручную

Выполните следующие действия, чтобы вручную преобразовать концевые сноски в Обычный текст в Word:

1. Поместите курсор в любое место раздела концевых сносок, затем нажмите Ctrl + A, чтобы выделить все концевые сноски в документе.
2. Нажмите Ctrl + C, чтобы скопировать выделенные концевые сноски.
3. Нажмите Ctrl + End, чтобы переместить курсор в конец документа — прямо перед разделом концевых сносок.
4. Нажмите Ctrl + V, чтобы вставить скопированные концевые сноски в конец документа. Порядок сносок сохранится, но они будут преобразованы в обычный текст.

   

5. При необходимости вручную замените цифру «1», стоящую перед каждой вставленной концевой сноской, на её исходный номер.

---

Преобразовать конечные сноски в текст легко с помощью Kutools для Word

Ручное преобразование концевых сносок в текст в Word может быть утомительным, особенно для новичков, не знакомых с VBA. Однако с помощью Kutools для Word вы сможете выполнить эту задачу всего одним щелчком мыши, воспользовавшись утилитой Convert Endnotes to Text.

1. Щёлкните Kutools>Преобразовать>Convert Endnotes to Text.

   

Как только вы нажмёте Convert Endnotes to Text, концевые сноски в вашем документе будут мгновенно преобразованы в текст, как показано на снимках экрана ниже:

---

Преобразовать конечные сноски в текст с помощью VBA

В Word вы также можете преобразовать концевые сноски в обычный текст с помощью кода VBA. Выполните следующие действия:

1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Выберите Модульв меню Вставка, затем скопируйте и вставьте следующий код VBA в окно Модуль.

   Sub convertendnote()
   Dim aendnote As Endnote
   For Each aendnote In ActiveDocument.Endnotes
   ActiveDocument.Range.InsertAfter vbCr & aendnote.Index _
   & vbTab & aendnote.Range
   aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"
   Next aendnote
   For Each aendnote In ActiveDocument.Endnotes
   aendnote.Reference.Delete
   Next aendnote
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find.Replacement.Font
   .Superscript=True
   End With
   With Selection.Find
   .Text="(a)([0-9]{1,})(a)"
   .Replacement.Text="\2"
   .Forward=True
   .Wrap=wdFindContinue
   .Format=True
   .MatchWildcards=True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   End Sub

3. Нажмите кнопку Выполнить или клавишу F5, чтобы запустить код VBA.

Демонстрация: быстро преобразуйте все концевые сноски в текст в Word

---

Связанные статьи:

• Преобразование нескольких Таблицы в текст в Word
• Преобразовать уравнение в изображение в Word

---