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