워드 문서에서 특정 단어 밑줄 설정 자동화를 위한 VBA 코드

워드 문서에서 특정 단어 밑줄 설정 자동화를 위한 VBA 코드

서론

많은 사람들이 워드 문서에서 특정 단어에 밑줄을 설정하고 싶어하지만, 수작업으로 일일이 설정하는 것은 번거로운 일입니다. 이러한 상황에서 VBA(Visual Basic for Applications) 코드를 사용하면 단어에 자동으로 밑줄을 설정할 수 있습니다. 이 포스팅에서는 VBA 코드를 사용하여 워드 문서에서 특정 단어에 밑줄을 설정하는 방법을 알아보겠습니다.

VBA 코드 예시

워드 문서에서 특정 단어에 밑줄을 설정하려면 다음과 같은 VBA 코드를 사용할 수 있습니다.

Sub UnderlineSpecificWord()
    Dim word As Range
    Dim searchWord As String

    '밑줄을 설정하고자 하는 단어
    searchWord = "특정 단어"

    For Each word In ActiveDocument.Words
        If word.Text = searchWord Then
            word.Font.Underline = True
        End If
    Next word

    MsgBox searchWord & "에 밑줄이 설정되었습니다."
End Sub

위의 코드는 "특정 단어"라는 단어에 밑줄을 설정해주는 예시입니다. 코드를 실행하면 해당 단어에 밑줄이 설정되며, 설정이 완료된 후 메시지 창이 뜹니다.

VBA 코드 설명

• searchWord 변수에는 밑줄을 설정하고자 하는 특정 단어를 입력합니다.
• For Each 문을 사용하여 문서의 모든 단어를 확인합니다.
• 각 단어를 If 문을 사용하여 searchWord와 비교합니다. 일치하는 단어를 찾으면 해당 단어에 밑줄을 설정합니다.
• 설정이 완료되면 메시지 창을 띄워 완료되었음을 알려줍니다.

실행 방법

1. 워드 문서를 엽니다.
2. Alt + F11을 눌러 VBA 편집기를 연 후, 새 모듈을 추가합니다.
3. 새 모듈에 위의 예시 코드를 복사합니다.
4. searchWord 변수에 밑줄을 설정하고자 하는 단어를 입력합니다.
5. 코드를 실행하려면 VBA 편집기에서 F5를 누르거나, 워드 문서로 돌아가서 Alt + F8을 누른 후, 매크로 목록에서 해당 매크로를 실행합니다.
6. 설정이 완료되면 메시지 창이 뜨고, 해당 특정 단어에는 밑줄이 설정되어있는 것을 확인할 수 있습니다.

마치며

이렇게 VBA 코드를 사용하여 워드 문서에서 특정 단어에 밑줄을 설정할 수 있습니다. 이 방법을 활용하면 번거로운 수작업 없이 원하는 단어에 대해 손쉽게 밑줄을 설정할 수 있습니다. VBA 코드는 다양한 작업에 활용할 수 있는 효과적인 도구이니, 관심 있는 분들은 추가적인 학습을 통해 더 많은 활용 방법을 익히시기 바랍니다.