[Word VBA] 모든 그림의 너비 및 테두리 통일

보고서를 쓰다보면 그림이 많이 들어갑니다.

그림은 그 너비와 테두리가 일정해야 합니다.

그런데, 보고서가 수백 페이지가 넘어갈때, 어떻게 일정하게 맞췄는지 확신할 수 있을까요?

개인적으로 VBA를 활용하여, 마지막으로 모든 그림의 너비와 테두리를 통일 시키고 있습니다.

 

■사용법

워드 문서 Open -> alt + f11 (VBA 창 오픈) -> alt + i,m (모듈 삽입) -> 아래 코드 붙여넣고 바꿔야 할 부분 수정 -> f5 (매크로 실행)

 

Sub 그림너비및테두리통일()
    For i = 1 To ActiveDocument.InlineShapes.Count    'for 문으로 1번째 그림부터 마지막 그림까지
        With ActiveDocument.InlineShapes(i)
            .Width = CentimetersToPoints(16)    '그림너비 16cm로 통일
            With .Borders    
                .OutsideColor = wdColorBlack    '그림테두리 검정색
                .OutsideLineStyle = wdLineStyleSingle    '그림테두리 실선
                .OutsideLineWidth = wdLineWidth075pt    '그림테두리 두께 0.75pt로 통일
            End With
        End With
    Next
End Sub