Як перетворити коментарі на виноски або кінцеві виноски в Microsoft Word?
Якщо припустити, що у вашому документі Word є кілька коментарів, як ви можете одночасно перетворити всі ці коментарі на виноски або кінцеві виноски? У цій статті наводяться методи VBA для її досягнення.
Перетворіть коментарі у виноски або кінцеві виноски за допомогою коду VBA
Перетворіть коментарі у виноски або кінцеві виноски за допомогою коду VBA
Наведені нижче коди VBA можуть допомогти вам швидко перетворити всі коментарі в поточному документі на виноски або кінцеві виноски. Будь ласка, виконайте наступне.
1. Відкрийте документ, що містить коментарі, які ви перетворите на виноски або кінцеві виноски, натисніть інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модуль. Потім скопіюйте код VBA у вікно модуля.
Код VBA: Перетворення коментарів у виноски:
Sub ConvertCommentsToFootnotes()
Dim xComm As Comment
Dim xCommRange As Range
Dim xDoc As Document
Application.ScreenUpdating = False
Set xDoc = ActiveDocument
For Each xComm In xDoc.Comments
Set xCommRange = xComm.Range
xDoc.Footnotes.Add xComm.Scope, , xCommRange.Text
xComm.Delete
Next
Application.ScreenUpdating = True
End Sub
Код VBA: Перетворення коментарів у кінцеві примітки:
Sub ConvertCommentsToEndnotes()
Dim xComm As Comment
Dim xCommRange As Range
Dim xDoc As Document
Application.ScreenUpdating = False
Set xDoc = ActiveDocument
For Each xComm In xDoc.Comments
Set xCommRange = xComm.Range
xDoc.Endnotes.Add xComm.Scope, , xCommRange.Text
xComm.Delete
Next
Application.ScreenUpdating = True
End Sub
3 Натисніть кнопку F5 клавіша для запуску коду.
Потім усі коментарі в поточному документі негайно перетворюються на виноски або кінцеві виноски на основі коду VBA, який ви застосували.
Статті по темі:
- Як додати нову сторінку або текст після кінцевих приміток у документі Word?
- Як виділити всі виноски у документі Word?
Найкращі інструменти продуктивності офісу
Kutools для Word - Підніміть свій досвід Word із Over 100 Чудові особливості!
🤖 Kutools AI Assistant: змініть свій текст за допомогою ШІ - Створення вмісту / Переписати текст / Узагальнити документи / Звертайтеся за інформацією на основі Документа, все в Word
📘 Майстерність документів: Розділити сторінки / Об’єднати документи / Експортувати вибране в різні формати (PDF/TXT/DOC/HTML...) / Пакетне перетворення в PDF / Експортувати сторінки як зображення / Друк кількох файлів одночасно...
✏ Редагування змісту: Пакетний пошук та заміна між кількома файлами / Змінити розмір усіх зображень / Транспонування рядків і стовпців таблиці / Перетворити таблицю в текст...
🧹 Очищення без зусиль: Змітати Зайві простори / Розбиття розділів / Усі заголовки / Текстові поля / Гіперпосилання / Щоб отримати більше інструментів для видалення, відвідайте наш сайт Вилучити групу...
➕ Творчі вставки: Вставити Роздільники тисяч / Прапорці / радіо кнопки / QR-код / Штрих-код / Таблиця діагональних ліній / Заголовок рівняння / Підпис зображення / Заголовок таблиці / Кілька зображень / Дізнайтеся більше в Вставити групу...
???? Точність вибору: Точне визначення конкретні сторінки / Таблиці / форми / заголовок абзаців / Покращте навігацію за допомогою більше Виберіть функції...
⭐ Покращення зірок: Швидка навігація до будь-якого місця / автоматичне вставлення повторюваного тексту / плавно перемикатися між вікнами документів / 11 Інструменти перетворення...