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

맥이나 윈도우나 모두 된다. 굳이 원격 데스크탑을 써서 윈도우 들어가서 작업할 필요가 없다. 단축키도 똑같다.

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

  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
  1. vba 창에서 F5 키를 눌러서 실행

모든 formatting baloon을 다 accept하는 방법은 다음과 같다.

  1. Review 탭에서 Markup Options의 Ink, Insertions and Deletions의 체크를 해제하고 Formatting에는 체크를 한다.

  2. Accept 버튼의 옆에 삼각형을 눌러서 드롭다운 메뉴를 만들고 'Accept All Changes Shown'을 클릭하여 모든 Formatting을 accept한다.

  3. 다시 Markup Options에서 Ink와 Insertions and Deletions, Formatting을 체크한다.