Перейти к основному содержанию

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

Преобразовать концевые сноски в текст вам будет удобно, редактировать или удалять их. Например, если вы хотите сразу выделить концевые сноски с другим обычным текстом, Word не позволит вам это сделать. Как это сделать легко? Это руководство покажет вам несколько методов преобразования концевых сносок в обычный текст.

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

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

Преобразование концевых сносок в текст с помощью Kutools for Wordхорошая идея3


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

1. Поместите курсор в то место, где расположены концевые сноски, затем нажмите Ctrl + для выбора всех концевых сносок в документе. Смотрите скриншот:

2. Нажмите Ctrl + C скопировать концевые сноски.

3. Нажмите Ctrl + End для перемещения курсора в конец всего документа перед концевыми сносками.

4. Нажмите Ctrl + V чтобы вставить сноску в конец документа. Порядок концевых сносок останется прежним, но вставленные концевые сноски были изменены. Смотрите скриншот:

5. Замените всю цифру 1 перед текстом на исходный список номеров вручную.


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

Словом, вы также можете преобразовать концевые сноски в простой текст с помощью кода VBA.

1: Нажмите Alt + F11 открыть Окно Microsoft Visual Basic для приложений;

2: нажмите Модули от Вставить вкладку, скопируйте и вставьте следующий код VBA в Модули окно;

3: нажмите Run или нажмите F5 применить VBA.

VBA, преобразующий концевые сноски в текст:

Sub converttendnote ()
Тусклое примечание как примечание
Для каждой заметки в ActiveDocument.Endnotes
ActiveDocument.Range.InsertAfter vbCr & aendnote.Index _
& vbTab & aendnote.Range
aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"
Следующее примечание
Для каждой заметки в ActiveDocument.Endnotes
примечание.Reference.Delete
Следующее примечание
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
С помощью Selection.Find.Replacement.Font
. Верхний индекс = Истина
Конец с
С Selection.Find
.Text = "(а) ([0-9] {1,}) (а)"
.Replacement.Text = "\ 2" v .Вперед = Истина
.Wrap = wdFindContinue
.Формат = Истина
.MatchWildcards = Истина
Конец с
Selection.Find.Execute Заменить: = wdReplaceAll
End Sub

Примечание: Вы можете изменить начало и конец макроса по своему усмотрению.


Преобразование концевых сносок в текст с помощью Kutools for Word

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

Kutools for Word, с более чем  удобные функции, облегчают вашу работу. 

После установки Kutools for Word, сделайте, как показано ниже:(Бесплатная загрузка Kutools for Word прямо сейчас!)

1. Пожалуйста, примените эту утилиту, нажав Кутулс > Конвертировать > Convert Endnotes to Text. Смотрите скриншот:

doc kutools преобразовать концевые сноски в текст 1

2. После нажатия Convert Endnotes to Text, вы увидите результат, как показано на скриншотах ниже:




Относительная статья:


Просмотр и редактирование нескольких документов Word / книг Excel с вкладками в Firefox, Chrome, Internet Explore 10!

Возможно, вы знакомы с просмотром нескольких веб-страниц в Firefox / Chrome / IE и возможностью переключения между ними, легко щелкая соответствующие вкладки. Здесь вкладка Office поддерживает аналогичную обработку, которая позволяет вам просматривать несколько документов Word или книг Excel в одном окне Word или Excel и легко переключаться между ними, щелкая их вкладки.
Нажмите, чтобы получить бесплатную пробную версию вкладки Office!

Просматривайте несколько документов Word в одном окне как Firefox
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank for the macro! Super helpful!

(Fyi - you have a "v" where there should be a linefeed by ".Forward", but you saved me a couple of hours of figuring out writing my own. Awesome!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations