其实不用这么高的分，着色删除批注如下For Each aa In ActiveDocument.RevisionsIf aa.Type = wdRevisionDelete Then aa.Range.HighlightColorIndex = 5Next备注：Type 可以是下列 WdRevisionType 常量之一： 重要我已标注，其它的你自己摸索吧，我英语也不好wdNoRevision "无修订"wdRevisionDelete "删除"wdRevisionInsert “插入”wdRevisionParagraphProperty “段落属性” wdRevisionReconcile wdRevisionSectionProperty wdRevisionStyleDefinition wdRevisionConflict wdRevisionDisplayField wdRevisionParagraphNumber “段落编号”wdRevisionProperty wdRevisionReplace “替换”wdRevisionStyle “样式 ”wdRevisionTableProperty “表格属性”