Як перетворити всі кінцеві виноски на звичайний текст у програмі Word
Перетворення кінцевих виносок у текст буде зручним для вас для редагування або видалення. Наприклад, якщо ви хочете відразу виділити кінцеві примітки з іншим звичайним текстом, Word не дозволить вам цього зробити. Як ви можете зробити це легко? Цей підручник покаже вам кілька методів перетворення кінцевих виносок у звичайний текст.
Перетворення кінцевих виносок у текст вручну
Перетворення кінцевих виносок у текст за допомогою VBA
Перетворіть кінцеві виноски на текст за допомогою Kutools для Word
Перетворення кінцевих виносок у текст вручну
1. Наведіть курсор на місце, де розташовані кінцеві примітки, а потім натисніть Ctrl + A щоб вибрати всі кінцеві примітки з документа. Дивіться знімок екрана:
2. прес Ctrl + C скопіювати кінцеві примітки.
3. прес Ctrl + End щоб перемістити курсор у кінець цілого документа та перед кінцевими примітками.
4. прес Ctrl + V щоб вставити кінцеву примітку в кінець документа. Порядок кінцевих приміток буде недоторканим, але вставлені кінцеві примітки змінено. Дивіться знімок екрана:
5. Замініть усі цифри 1 перед текстом на оригінальні списки номерів вручну.
Перетворення кінцевих виносок у текст за допомогою VBA
Словом, ви також можете перетворити кінцеві виноски у звичайний текст за допомогою коду VBA.
1: Натисніть Alt + F11 відкрити Вікно Microsoft Visual Basic для програм;
2: Клацніть Модулі від Insert , скопіюйте та вставте наступний код VBA в Модулі вікно;
3: Клацніть прогін кнопку або натисніть F5 застосувати VBA.
VBA, який перетворює кінцеві виноски в текст:
Підконвертована примітка ()
Тьмяну етноту як кінцеву примітку
Для кожної електронної примітки в ActiveDocument
ActiveDocument.Range.InsertAfter vbCr & aendnote.Index _
& vbTab & aendnote.Range
aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"
Наступна електронна примітка
Для кожної електронної примітки в ActiveDocument
aendnote.Reference.Delete
Наступна електронна примітка
Selection.Find.ClearFormatting
Виділення.Знайти.Заміна.Очиститиформатування
З Selection.Find.Replacement.Font
.Superscript = Істина
Кінець з
З виділенням.Знайти
.Text = "(a) ([0-9] {1,}) (a)"
.Заміна.Текст = "\ 2" v . Форвард = правда
.Wrap = wdFindContinue
.Format = Істина
.MatchWildcards = Правда
Кінець з
Selection.Find.Execute Replace: = wdReplaceAll
End Sub
Примітка: Ви можете змінити початок і кінець макросу відповідно до ваших сподобався.
Перетворіть кінцеві виноски на текст за допомогою Kutools для Word
Для цих нових комп’ютерів VBA занадто складний для обробки. Але з Kutools для Word встановлений, ви можете швидко перетворити всі кінцеві виноски в текст за допомогою Convert Endnotes to Text утиліта одним клацанням миші.
Kutools для Word, з більш ніж зручні функції, полегшує вам роботу. | ||
після установки Kutools для Word, будь-ласка, виконайте наведені нижче дії:(Безкоштовно завантажте Kutools для Word зараз!)
1. Будь ласка, застосуйте цю утиліту, натиснувши Кутулс > Конвертувати > Convert Endnotes to Text. Дивіться знімок екрана:
2 Після натискання Convert Endnotes to Text, ви побачите результат, як показано на скріншотах нижче:
Демонстрація: перетворення всіх кінцевих виносок у тексти в word
Відносна стаття:
Перегляд та редагування декількох документів Word / книг Excel із вкладками як Firefox, Chrome, Internet Explore 10! |
Можливо, ви знайомі з переглядом кількох веб-сторінок у Firefox/Chrome/IE та переходом між ними, легко натискаючи відповідні вкладки. Тут вкладка Office підтримує подібну обробку, яка дозволяє переглядати кілька документів Word або робочих книг Excel в одному вікні Word або Excel і легко перемикатися між ними, натискаючи їхні вкладки. |