Если вы используете комментарии в своих документах, Word позволяет распечатать список комментариев для использования в качестве справки. Чтобы распечатать список комментариев, выполните следующие действия, если вы используете Word 97 или Word 2000:

  1. Выберите Печать в меню Файл. Word отображает диалоговое окно «Печать».

  2. В раскрывающемся списке «Что для печати» выберите «Комментарии».

  3. Щелкните ОК.

Начиная с Word 2002, Microsoft значительно изменила способ обработки Word «разметки» документа. Это изменение повлияло на способ обработки комментариев (которые считаются частью разметки документа). Если вы используете Word 2002 или Word 2003, вы можете выбрать два разных способа печати комментариев. Эти параметры можно выбрать в раскрывающемся списке «Что печатать»:

Документ с разметкой . * Этот параметр позволяет распечатать документ с комментариями, отображаемыми на месте, с помощью выноски. По сути, так вы видите комментарии, если просматриваете документ в режиме макета печати.

Список разметки . * Эта опция создает список комментариев, очень похожий на те, которые создавались в предыдущих версиях Word.

Понимание того, что «разметка» — это общий термин, который относится к любым изменениям, внесенным в документ (если включено отслеживание изменений), печать списка разметки в Word 2002 и Word 2003 может не дать вам того, что вы хотите, если вы хотите распечатать только список комментариев. Действительно, список разметки включает всю разметку, а не только комментарии.

Если вы хотите напечатать только комментарии без другой разметки, в Word больше нет возможности сделать это; эта возможность прекратилась с появлением Word 2002. Однако вы можете создать макрос, который будет печатать ваши комментарии. Традиционный способ печати комментариев внутри макроса — использовать эту единственную строку кода:

ActiveDocument.PrintOut Item:=wdPrintComments

Если вы используете этот код в Word 2002 или Word 2003, результат будет таким же, как при выборе «Список разметки» в диалоговом окне «Печать». Лучше собрать все ваши комментарии и поместить их в новый документ, который затем можно распечатать.

Sub PrintOnlyComments()

Dim oThisDoc As Document     Dim oThatDoc As Document     Dim c As Comment     Dim sTemp As String     Dim iPage As Integer

Set oThisDoc = ActiveDocument     Set oThatDoc = Documents.Add

Application.ScreenUpdating = False     For Each c In oThisDoc.Comments         'Find page number of comment         oThisDoc.Select         c.Reference.Select         iPage = Selection.Information(wdActiveEndAdjustedPageNumber)



'Put info in new document         oThatDoc.Select         Selection.EndKey Unit:=wdStory         sTemp = "Page: " & iPage         Selection.TypeText Text:=sTemp         Selection.TypeParagraph         sTemp = "[" & c.Initial & c.Index & "] " & c.Range         Selection.TypeText Text:=sTemp         Selection.TypeParagraph     Next     Application.ScreenUpdating = True End Sub

Этот макрос создает новый документ, затем просматривает каждый комментарий в исходном документе и добавляет его в новый документ. При помещении текста в новый документ используются три свойства: свойства Initial, Index и Range. Свойство Initial — это инициалы автора комментария, свойство Index — это номер комментария в документе, а свойство Range — это текст самого комментария.

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (1046) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Printing_Comments [Печать комментариев].