워드 문서에서 특정 단어 서식 복사 자동화를 위한 VBA 코드

워드 문서에서 특정 단어 서식 복사 자동화를 위한 VBA 코드

들어가며

워드 문서에서 특정 단어 혹은 구문에 일일히 서식을 지정해야 할 때, 한 번에 복사하여 적용할 수 있는 방법이 있다. 이를 통해 번거로운 작업을 간소화하고 효율을 높일 수 있다. 이번 포스팅에서는 VBA 코드를 사용하여 워드 문서에서 특정 단어 서식 복사 자동화를 하는 방법을 소개하겠다.

VBA 코드 작성하기

먼저, VBA 코드를 작성할 준비를 해야 한다.

1. 워드 문서 열기 VBA 편집기를 열고 새로운 모듈을 추가한다. 그리고 아래의 코드를 작성한다.

Sub CopyFormat()
    Dim doc As Document
    Dim rng As Range
    Dim findText As String
    Dim formatSource As Style

    ' 워드 문서 및 찾을 텍스트 지정
    Set doc = ActiveDocument
    Set rng = doc.Content
    findText = "특정 단어"
    
    ' 서식 복사할 대상 스타일 지정
    ' 예시: "강조" 스타일
    Set formatSource = doc.Styles("강조")
    
    With rng.Find
        .Text = findText
        
        ' 특정 단어를 찾을 때까지 계속 반복
        Do While .Execute
            rng.Style = formatSource
            rng.Collapse wdCollapseEnd
        Loop
    End With
    
    Set rng = Nothing
    Set doc = Nothing
End Sub

2. 실행하기 위의 코드 작성이 끝났다면, 저장하고 VBA 편집기를 닫는다. 이제 작성한 VBA 코드를 실행해보자. 실행하려는 워드 문서를 열고, Alt + F11을 눌러 VBA 편집기를 열고, 코드가 있는 모듈을 찾아 실행한다. 해당 워드 문서에서 "특정 단어"라는 텍스트가 있는 위치에 "강조"라는 스타일이 적용된다.
3. 다른 서식 적용하기 서식을 복사하려는 스타일이나 서식이 다른 경우, 변수 formatSource에 해당 서식을 적용하면 된다. 예시에서는 "강조" 스타일을 사용했지만, 다른 스타일을 적용하려면 스타일 명을 수정하면 된다.

마치며

위에서 소개한 VBA 코드를 사용하면 워드 문서에서 특정 단어나 구문에 일일히 서식을 적용하는 시간과 노력을 절약할 수 있다. 많은 문서 작업을 처리해야 할 때 특히 유용하게 사용할 수 있다. VBA를 사용하여 자동화하는 방법을 익히고 응용하여 더 효율적인 작업환경을 만들어보자.