Как да конвертирате коментари в бележки под линия или бележки в края в Microsoft Word?

Автор: Силувия Последна промяна: 2018-09-06

Ако приемем, че във вашия документ на Word има множество коментари, как можете да конвертирате всички тези коментари в бележки под линия или бележки в края едновременно? Тази статия предоставя VBA методи за постигането му.

Преобразувайте коментари в бележки под линия или бележки в края с VBA код

Преобразувайте коментари в бележки под линия или бележки в края с VBA код

Кодовете VBA по-долу могат да ви помогнат бързо да конвертирате всички коментари в текущия документ в бележки под линия или бележки в края. Моля, направете следното.

1. Отворете документа, който съдържа коментари, които ще конвертирате в бележки под линия или бележки в края, натиснете Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модул. След това копирайте по-долу 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, който сте приложили.