如果您在文档中使用注释，Word允许您打印注释列表以用作参考。若要打印注释列表，如果您使用的是Word 97或Word 2000，请按照下列步骤操作：

。从文件菜单中选择打印。 Word将显示“打印”对话框。

。使用“打印内容”下拉列表，选择“注释”。

。单击确定。

从Word 2002开始，Microsoft大大改变了Word处理文档“标记”的方式。此更改影响了注释（被视为文档标记的一部分）的处理方式。如果使用的是Word 2002或Word 2003，则可以选择两种不同的方式来打印注释。这些选项是您可以在“打印什么”下拉列表中选择的选项：

显示标记的文档。*此选项使用气球将打印的文档与就地显示的注释一起使用。如果您在“打印版式”视图中查看文档，本质上就是这样查看注释。

Markup._List *此选项生成注释列表，与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_网站上的任何其他页面）上描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（1046）适用于Microsoft Word 97、2000、2002和2003。您可以为Word（Word 2007）的功能区界面找到此技巧的版本。和更高版本）在这里：

打印注释。