본문 바로가기
■ 칼퇴를 위한 VBA : 사례/- VBA for 워드

워드 문서에서 특정 단어 색상 변경 자동화를 위한 VBA 코드

by 포탈메이커 2023. 7. 8.

워드 문서에서 특정 단어 색상 변경 자동화를 위한 VBA 코드

오늘은 워드 문서에서 특정 단어의 색상을 자동으로 변경하는 VBA 코드에 대해 알아보고자 합니다. VBA(Visual Basic for Applications)는 마이크로소프트 오피스 프로그램에서 사용되는 프로그래밍 언어로, 워드 문서의 작업을 자동화하고 사용자의 요구에 따라 특정 작업을 수행할 수 있도록 해줍니다.

VBA 코드 작성하기

먼저, 워드 문서에서 특정 단어를 찾아 색상을 변경하는 VBA 코드를 작성해보겠습니다. 아래의 코드는 'Hello'라는 단어를 찾아서 빨간색으로 색상을 변경하는 예시입니다.

Sub ChangeWordColor()
    Dim rng As Range

    ' 워드 문서 전체 범위 설정
    Set rng = ActiveDocument.Content

    ' 찾을 단어 설정
    With rng.Find
        .Text = "Hello"

        ' 단어를 찾으면 실행할 동작 설정
        While .Execute
            rng.Font.Color = RGB(255, 0, 0) ' 빨간색으로 색상 변경
        Wend
    End With

    Set rng = Nothing
End Sub

위의 코드를 VBA 에디터에 작성한 후, 실행하면 'Hello'라는 단어를 모두 찾아 빨간색으로 색상을 변경합니다. 예를 들어, 다음과 같은 문장이 있는 워드 문서를 작성해보겠습니다.

Hello, world! How are you today? Hello, nice to meet you. Hello, Hello!

위의 워드 문서를 열고, VBA 코드를 실행하면 'Hello'라는 단어가 모두 빨간색으로 변경됩니다.

코드 해석하기

이제 위의 VBA 코드를 해석해보겠습니다. 코드는 몇 가지 주요한 부분으로 구성되어 있습니다.

  1. Sub ChangeWordColor() : 이 코드는 VBA 코드의 시작을 나타내는 부분입니다.
  2. Dim rng As Range : 이 부분은 범위를 지정하기 위한 변수를 선언하는 부분입니다. 우리는 워드 문서 전체 범위를 지정하기 위해 rng이라는 변수를 사용합니다.
  3. Set rng = ActiveDocument.Content : 이 부분은 rng 변수에 워드 문서의 전체 내용을 할당하는 부분입니다.
  4. With rng.Find : 이 부분은 With문을 사용하여 rng 객체의 Find 속성을 설정하는 부분입니다. 해당 속성을 사용하여 특정 단어를 찾을 수 있습니다.
  5. .Text = "Hello" : 이 부분은 찾을 단어를 설정하는 부분입니다. "Hello"라는 단어를 찾을 것입니다.
  6. While .Execute : 이 부분은 찾을 단어를 계속 찾는 동안 아래의 코드를 실행하도록 하는 부분입니다.
  7. rng.Font.Color = RGB(255, 0, 0) : 이 부분은 찾은 단어의 색상을 변경하는 부분입니다. 위의 코드에서는 찾은 단어를 빨간색(RGB(255, 0, 0))으로 변경하도록 설정되어 있습니다.
  8. Wend : 이 부분은 While문의 끝을 나타내는 부분입니다.
  9. Set rng = Nothing : 이 부분은 rng 변수에 할당된 값이 없음을 나타내는 부분입니다.
  10. End Sub : 이 부분은 VBA 코드의 끝을 나타내는 부분입니다.

VBA 코드 실행하기

이제 위에서 작성한 VBA 코드를 실행해보겠습니다. 아래의 절차를 따라 진행해주세요.

  1. 워드 문서를 엽니다.
  2. Alt + F11 키를 눌러 VBA 에디터를 엽니다.
  3. 좌측의 프로젝트 탐색기에서 해당 워드 문서를 선택하세요.
  4. Insert 메뉴에서 Module을 선택하여 모듈을 추가합니다.
  5. 모듈 창에 위에서 작성한 VBA 코드를 붙여넣습니다.
  6. VBA 에디터를 닫고, 워드 문서로 돌아갑니다.
  7. Alt + F8 키를 눌러 매크로 실행 창을 엽니다.
  8. ChangeWordColor 매크로를 선택하고 실행 버튼을 클릭합니다.

잠시 후, 'Hello'라는 단어가 모두 빨간색으로 변경되는 것을 확인할 수 있습니다.

마무리하며

VBA를 사용하면 워드 문서에서 특정 단어를 찾아 색상을 변경하는 작업을 자동화할 수 있습니다. 이렇게 한 번 작성한 VBA 코드는 필요에 따라 수정하여 다양한 작업에 적용할 수 있습니다. VBA의 기능은 무궁무진하니, 여러분의 창의성과 필요에 따라 맞춤형 코드를 작성해보세요.