MS 워드 VBA 글자 간격 조절하는 매크로 만드는 방법

VBA(Visual Basic for Applications)는 Microsoft Office 응용 프로그램에서 자동화 작업을 수행할 수 있도록 해주는 프로그래밍 언어입니다. MS 워드에서 글자 간격을 조절하는 매크로를 작성하면 문서의 가독성을 높이고, 특정 형식에 맞게 텍스트를 조정할 수 있습니다. 보통 엑셀에서만 VBA 를 사용할 수 있다고 알고 있지만 워드도 가능합니다.

 

 

◎ 글자 간격 조절 속성

 

글자 간격을 조절하기 위해서는 “Font.Spacing” 속성을 사용합니다. 이 속성은 글자 간격을 포인트 단위로 설정합니다. 예를 들어, “Font.Spacing = 1”은 글자 간격을 1포인트로 설정합니다.

 

 

◎ 예제 1 : 전체 문서의 글자 간격 조절

 

▼ 매크로는 현재 활성화된 문서의 모든 텍스트에 대해 글자 간격을 2포인트로 설정합니다. “ActiveDocument”를 사용하여 현재 작업 중인 문서를 참조하고, “Range.Font.Spacing” 속성을 통해 글자 간격을 조정합니다. 전체 문서의 글자 간격이 2포인트로 조정되었습니다. 

Sub AdjustLetterSpacing()
    Dim doc As Document
    Set doc = ActiveDocument
   
    ' 전체 문서의 글자 간격을 2포인트로 설정
    doc.Range.Font.Spacing = 2
   
    ' 결과 출력
    Debug.Print "전체 문서의 글자 간격이 2포인트로 조정되었습니다."
End Sub

 

 

◎ 예제 2 : 특정 단락의 글자 간격 조절

 

▼ 매크로는 문서의 세 번째 단락에 대해 글자 간격을 1.5포인트로 설정합니다. “ActiveDocument.Paragraphs(1)”을 사용하여 세 번째 단락을 선택하고, 해당 단락의 글자 간격을 조정합니다. 세 번째 단락의 글자 간격이 1.5포인트로 조정되었습니다. 

Sub AdjustParagraphSpacing()
    Dim para As Paragraph
    Set para = ActiveDocument.Paragraphs(3) ' 세 번째 단락 선택
   
    ' 선택한 단락의 글자 간격을 1.5포인트로 설정
    para.Range.Font.Spacing = 1.5
   
    ' 결과 출력
    Debug.Print "세 번째 단락의 글자 간격이 1.5포인트로 조정되었습니다."
End Sub

 

 

◎ 예제 3 : 선택한 텍스트의 글자 간격 조절

 

▼ 매크로는 사용자가 선택한 텍스트의 글자 간격을 3포인트로 설정합니다. “Selection.Range”를 사용하여 현재 선택된 텍스트 범위를 참조하고, 해당 범위의 글자 간격을 조정합니다. 선택한 텍스트의 글자 간격이 3포인트로 조정되었습니다. 

Sub AdjustSelectedTextSpacing()
    Dim selectedRange As Range
    Set selectedRange = Selection.Range
   
    ' 선택한 텍스트의 글자 간격을 3포인트로 설정
    selectedRange.Font.Spacing = 3
   
    ' 결과 출력
    Debug.Print "선택한 텍스트의 글자 간격이 3포인트로 조정되었습니다."
End Sub

 

▼ 함수를 실행한 결과는 다음과 같습니다. 변경할 영역을 먼저 선택하고 함수를 실행하면 글자 간격이 지정한 만큼 변경됩니다.