Как преобразовать все концевые сноски в простой текст в Word
Преобразовать концевые сноски в текст вам будет удобно, редактировать или удалять их. Например, если вы хотите сразу выделить концевые сноски с другим обычным текстом, Word не позволит вам это сделать. Как это сделать легко? Это руководство покажет вам несколько методов преобразования концевых сносок в обычный текст.
Преобразование концевых сносок в текст вручную
Преобразование концевых сносок в текст с помощью VBA
Преобразование концевых сносок в текст с помощью Kutools for Word
Преобразование концевых сносок в текст вручную
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. Смотрите скриншот:
2. После нажатия Convert Endnotes to Text, вы увидите результат, как показано на скриншотах ниже:
Демо: преобразование всех примечаний в текст в словах
Относительная статья:
Просмотр и редактирование нескольких документов Word / книг Excel с вкладками в Firefox, Chrome, Internet Explore 10! |
Возможно, вы знакомы с просмотром нескольких веб-страниц в Firefox / Chrome / IE и возможностью переключения между ними, легко щелкая соответствующие вкладки. Здесь вкладка Office поддерживает аналогичную обработку, которая позволяет вам просматривать несколько документов Word или книг Excel в одном окне Word или Excel и легко переключаться между ними, щелкая их вкладки. |