Перейти до основного матеріалу

Як перетворити всі кінцеві виноски на звичайний текст у програмі Word

Перетворення кінцевих виносок у текст буде зручним для вас для редагування або видалення. Наприклад, якщо ви хочете відразу виділити кінцеві примітки з іншим звичайним текстом, Word не дозволить вам цього зробити. Як ви можете зробити це легко? Цей підручник покаже вам кілька методів перетворення кінцевих виносок у звичайний текст.

Перетворення кінцевих виносок у текст вручну

Перетворення кінцевих виносок у текст за допомогою VBA

Перетворіть кінцеві виноски на текст за допомогою Kutools для Wordгарна ідея3


Перетворення кінцевих виносок у текст вручну

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. Дивіться знімок екрана:

doc kutools перетворює кінцеві виноски в текст 1

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




Відносна стаття:


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

Можливо, ви знайомі з переглядом кількох веб-сторінок у Firefox/Chrome/IE та переходом між ними, легко натискаючи відповідні вкладки. Тут вкладка Office підтримує подібну обробку, яка дозволяє переглядати кілька документів Word або робочих книг Excel в одному вікні Word або Excel і легко перемикатися між ними, натискаючи їхні вкладки.
Натисніть, щоб отримати безкоштовну пробну версію Office Tab!

Переглядайте кілька документів 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