При разработке документа нет ничего необычного в использовании определенного стиля абзаца для редакционных заметок. Например, примечания могут храниться в абзацах с использованием стиля, называемого «Примечания». В какой-то момент вы можете захотеть взять все абзацы, в которых используется стиль Notes, и преобразовать их в настоящие комментарии в документе. Вы можете просмотреть документ и выполнить преобразование вручную, но это может быстро стать утомительным.

Вместо этого используйте макрос, который выполняет преобразование за вас:

Sub ConvertNotesToComments()

Dim CommentText As String     Dim MyRange As Range     Dim iPCount As Integer     Dim J As Integer

Application.ScreenUpdating = False     iPCount = ActiveDocument.Paragraphs.Count

For J = iPCount To 1 Step -1         If ActiveDocument.Paragraphs(J).Style = _           ActiveDocument.Styles("Notes") Then             Set MyRange = ActiveDocument.Paragraphs(J).Range             CommentText = MyRange.Text

'Get rid of trailing end-of-paragraph mark             CommentText = Left(CommentText, Len(CommentText) - 1)



'Move selection to end of previous paragraph             MyRange.Collapse (wdCollapseStart)

MyRange.Move Unit:=wdCharacter, Count:=-1

'The original paragraph is no longer necessary             ActiveDocument.Paragraphs(J).Range.Delete

'Create the comment at the range location             ActiveDocument.Comments.Add Range:=MyRange, _               Text:=CommentText         End If     Next J     Application.ScreenUpdating = True End Sub

Макрос прокручивает документ назад, глядя на стиль каждого абзаца. Если он находит тот, который использует стиль Notes, он перемещает текст абзаца в переменную CommentText, а затем удаляет абзац. Затем комментарий добавляется в конец абзаца, предшествующего тому, где было сделано удаление.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (13382) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

link: / word-Converting_Paragraphs_to_Comments [Преобразование абзацев в комментарии].