Як перетворити коментарі на виноски або кінцеві виноски в 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, який ви застосували.