如果您在文档中使用注释,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)的功能区界面找到此技巧的版本。和更高版本)在这里: