VBA - VBA로 셀 테두리 꾸미기 (Word)

오늘은 Word에서 VBA로 셀 테두리를 꾸며볼 텐데요.

이전 포스팅에서 Excel에서 VBA로 셀 테두리를 꾸며 보았으니

필요하신 분들은 참고하시면 좋을 거 같습니다. 

 

2022.08.31 - [VBA] - VBA - VBA로 셀 테두리 꾸미기 (Excel)

 

VBA - VBA로 셀 테두리 꾸미기 (Excel)

 

Word 빈 문서를 하나 열어주시고 Excel고 마찬가지로

"Alt + F11"을 눌러주시면 VBA 편집기 창이 활성화됩니다. 

(저는 border라는 이름의 macro를 만들어볼게요~)

테두리를 꾸미려면 표를 만들어야겠죠?

3행 4열의 표를 삽입하고 표의 테두리를 그려줍니다. (아래 코드블럭 참고)

Default 표를 생성할 때 테두리는 없는 상태이기에 아래 코드를 입력해야 테두리가 보입니다. 

(wd_table.Borders.Enable = True) 

 

Sub border()

'add table
Set wd_range = ActiveDocument.Range(Start:=0, End:=0)
ActiveDocument.Tables.Add Range:=wd_range, NumRows:=3, NumColumns:=4
Set wd_table = ActiveDocument.Tables(1)

'make borders visible
wd_table.Borders.Enable = True

End Sub

이제 본격적으로 테두리를 꾸미 보아요~

1. 외/내부 테두리의 스타일을 각각 다르게 적용시키기

With wd_table.Borders
 .InsideLineStyle = wdLineStyleSingle
 .OutsideLineStyle = wdLineStyleDouble
End With

위의 코드를 보면 InsideLineStyle, OutsideLineStyle property를

이용해 테두리의 스타일을 적용시켰는데요.

아래 결과를 보면 외부는 이중선 스타일로 내부는 단일선 스타일이 적용된 것을 확인할 수 있었습니다. 

 

위 표를 만들기 위한 총 코드입니다~

Sub border()

'add table
Set wd_range = ActiveDocument.Range(Start:=0, End:=0)
ActiveDocument.Tables.Add Range:=wd_range, NumRows:=3, NumColumns:=4
Set wd_table = ActiveDocument.Tables(1)

'make borders visible
wd_table.Borders.Enable = True

'apply borders style
With wd_table.Borders
 .InsideLineStyle = wdLineStyleSingle
 .OutsideLineStyle = wdLineStyleDouble
End With

End Sub

Sub border()

'add table
Set wd_range = ActiveDocument.Range(Start:=0, End:=0)
ActiveDocument.Tables.Add Range:=wd_range, NumRows:=3, NumColumns:=4
Set wd_table = ActiveDocument.Tables(1)

'make borders visible
wd_table.Borders.Enable = True

'apply borders style
With wd_table.Borders
 .InsideLineStyle = wdLineStyleSingle
 .OutsideLineStyle = wdLineStyleDouble
End With

End Sub

Word에서 테두리 스타일로 쓸 수 있는 목록입니다.

LineStyle에 "wdLinestyleDashDot" 같이 Name을 직접 할당해주어도 되고

귀찮으시면 Value(숫자 값)을 할당해주어도 됩니다!!

(Excel보다 훨씬 많네요!!)

Word에서 VBA로 테두리를 꾸며주었는데요! 

사양서 같은 문서 작성할 때 하나의 양식 만들어서 복사 붙여 넣기 해도 좋지만

한번 VBA로 자동화해놓으면 업무 효율성이 더욱 높아지는 것 같아요.

아무쪼록 업무 효율성을 높이는데 도움이 되었으면 좋겠네요!!

 

오늘도 좋은 하루 보내세요!!