워드에서 문서 비교 후 추가한 것만 색깔 글자로 만들기

워드에서 두 문서를 비교한 후에, 지운 부분은 없애고 추가한 부분만 색깔처리하고 싶을 때 다음과 같이 하면 된다.

1. 마우스 커서를 문서의 제일 앞에 둔다.

2. Word -> Alt + F11 키로 vba 창 띄우고 모듈 추가 한후에 코드 적는 부분에 다음 코드를 복붙

Sub AcceptAllDeletionsOnly()
    Dim r As Revision

    If ActiveDocument.Revisions.Count = 0 Then
        MsgBox "이 문서에는 변경 내용(삭제)이 없습니다."
        Exit Sub
    End If

    For Each r In ActiveDocument.Revisions
        If r.Type = wdRevisionDelete Then
            r.Accept
        End If
    Next r
End Sub

3. vba 창에서 F5 키를 눌러서 실행