При разработке документа нет ничего необычного в использовании определенного стиля абзаца для редакционных заметок. Например, примечания могут храниться в абзацах с использованием стиля примечаний. В какой-то момент вы можете захотеть взять все абзацы, в которых используется стиль 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 — самая популярная программа для обработки текстов в мире.) Этот совет (5404) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

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