g批注

1
Sub 添加批注(control As IRibbonControl) '批注-添加批注
2
    '添加批注
3
    Application.ScreenUpdating = False '关闭屏幕更新
4
    Selection.Collapse Direction:=wdCollapseEnd
5
    ActiveDocument.Comments.Add _
6
        Range:=Selection.Range, Text:=""
7
    Application.ScreenUpdating = True '恢复屏幕更新
8
End Sub
9
Sub 删除批注(control As IRibbonControl) '批注-删除批注
10
    '删除批注
11
    On Error GoTo err_msgbox
12
    Selection.Comments(1).Delete
13
    Exit Sub
14
err_msgbox:
15
    MsgBox ("你需要先选中一个批注")
16
End Sub
17
Sub 修订上色(control As IRibbonControl)
18
    Dim oDoc As Document
19
    Set oDoc = Word.ActiveDocument
20
    Dim oRevision As Revision
21
    For Each oRevision In oDoc.Revisions
22
        With oRevision
23
            t = .Range.Text
24
            .Range.HighlightColorIndex = wdYellow
25
        End With
26
    Next
27
End Sub