Word 利用 VBA 高亮显示修订的内容-Stewed Noodles 资源

温馨提示：本文最后更新于2024-12-17 21:14:52，某些文章具有时效性，若有错误或已失效，请在下方留言。

代码及颜色值

高亮显示所有的修订内容的代码，如下所示

' 高亮显示所有的修订内容
Sub highlightModifyContent()
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
        Dim oRevision As Revision
        Dim oRng As Range
        For Each oRevision In oDoc.Revisions
        With oRevision
            '返回修订者的名字
            sAuthor = .Author
            '返回修改的日期
            dDate = .Date
            '返回修订的类型
            iType = .Type
            '返回修改的格式描述
            sFD = .FormatDescription
            '返回包含了修订记录的Range对象
            Set oRng = .Range
                ' 设置高亮颜色为黄色
                oRng.HighlightColorIndex = wdYellow
            End With
        Next
    End Sub

wdYellow 背景颜色可以替换为以下的颜色

Name	Value	Description
wdAuto	0	Automatic color. Default; usually black.
wdBlack	1	Black color.
wdBlue	2	Blue color.
wdBrightGreen	4	Bright green color.
wdByAuthor	-1	Color defined by document author.
wdDarkBlue	9	Dark blue color.
wdDarkRed	13	Dark red color.
wdDarkYellow	14	Dark yellow color.
wdGray25	16	Shade 25 of gray color.
wdGray50	15	Shade 50 of gray color.
wdGreen	11	Green color.
wdNoHighlight	0	Removes highlighting that has been applied.
wdPink	5	Pink color.
wdRed	6	Red color.
wdTeal	10	Teal color.
wdTurquoise	3	Turquoise color.
wdViolet	12	Violet color.
wdWhite	8	White color.
wdYellow	7	Yellow color.

Windows 版本

详细的操作视频（Windows 版本操作流程）

macOS 版本

详细的操作视频（macOS版本操作流程）

版权声明 1 本站名称： Stewed Noodles 资源
2 本站网址：blog.stewednoodles.com
3 本网站的文章部分内容可能来源于网络，仅供大家学习与参考，如有侵权，请联系站长进行删除处理。
4 本站一切资源不代表本站立场，并不代表本站赞同其观点和对其真实性负责。
5 本站一律禁止以任何方式发布或转载任何违法的相关信息，访客发现请向站长举报。
6 本站附件资源、教程等内容如因时效原因失效或不可用，请评论区留言或联系站长及时更新。

THE END

Word 利用 VBA 高亮显示修订的内容

代码及颜色值

Windows 版本

macOS 版本

请登录后发表评论