[VBA] MS Word에서 글자 간격 조절 매크로

2016-09-05   //   alexken작성   //   기술  //  No Comments

문서 작성시 한국어 띄어쓰기 단위인 어절이 2줄에 걸친 경우, 이를 대소롭지 않게 보는 조직이 있는 반면, 우리 회사에서는 아주 큰 일난다. 회사에서 가장 많이 하는 일이 Word로 보고서 작성하는 일이다 보니 자주 접하게 되어 이참에 블로그에 정리해 두려고 함

아래한글의 경우 Alt+Shift+N/W으로 글간격을 좁게/넓게 해줄 수가 있지만, MS Word에서는 Ctrl+D로 [글꼴] 대화창을 띄우고 [고급]의 [간격]에 해당하지만 한번에 못하고 창을 여러번 띄워서 시행착오를 격게되어 아래한글처럼 단축키로 할 수 있게 하여 나만 쓰려한다.

Sub Narrow1Step()
    '
    ' Narrow1Step Macro
    ' Alt+Shift+N
    '
    With Selection.Font
        .Spacing = .Spacing - 0.1
    End With
End Sub

Sub Wider1Step()
    '
    ' Wider1Step Macro
    ' Alt+Shift+W
    '
    With Selection.Font
        .Spacing = .Spacing + 0.1
    End With
End Sub