Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как преобразовать комментарии в сноски или сноски в Microsoft Word?

Предположим, что в документе 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, который вы применяли.


Статьи по теме:



Рекомендуемые инструменты для повышения производительности Word

Kutools For Word - больше, чем расширенные возможности 100 для Microsoft Word, сэкономьте время 50%

  • Сложные и повторяющиеся операции могут быть выполнены одноразовой обработкой за считанные секунды.
  • Вставьте несколько изображений из папок в документ Word одновременно.
  • Объединяйте и объединяйте несколько файлов Word в разных папках в нужном вам порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком 1, разрывом раздела или другими критериями.
  • Конвертировать файлы между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора, и так далее...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.