본문 바로가기

업무 자동화

word(워드) 매크로 설정

반응형

ி 매크로 실행 단축키 등록

 

[파일] - [옵션] - [리본 사용자 지정] - [명령선택, 매크로] - [바로가기키, 사용자 지정]
※ [파일] - [옵션] 단축키 : Alt + F + T 


[명령 지정,매크로] - [키보드 시퀀스 지정] - [지정]

Alt + F8(매크로 설정창), Alt + F11(매크로 코드 편집기)

 

※ 단축키 설정 백업 파일

C:\Users\사용자이름\AppData\Roaming\Microsoft\Templates Normal.dotm 파일

 

※ 매크로 설정 파일 추출 - Alt + F11 - 모듈 우클릭 후 파일 내보내기

 

 

 

 


ி 매크로 모음

 

모든 이미지의 너비 및 테두리 설정

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

 

모든 이미지의 종횡비(가로 세로 비율) 고정 해제

Sub UnlockAspectRatio()
    Dim shp As Shape
    Dim ish As InlineShape
    For Each shp In ActiveDocument.Shapes
        If shp.Type = msoPicture Or _
                shp.Type = msoLinkedPicture Then
            shp.LockAspectRatio = False
        End If
    Next shp
    For Each ish In ActiveDocument.InlineShapes
        If ish.Type = wdInlineShapePicture Or _
                ish.Type = wdInlineShapeLinkedPicture Then
            ish.LockAspectRatio = False
        End If
    Next ish
End Sub

 

 

선택한 이미지의 너비 및 테두리 설정

Sub Selected_image_w_board()
With Selection.InlineShapes(1) ' 가로 종횡비 고정 x
.LockAspectRatio = False
.Width = CentimetersToPoints(16.5)
With .Borders
.OutsideColor = wdColorBlack '그림테두리 검정색
.OutsideLineStyle = wdLineStyleSingle '그림테두리 실선
.OutsideLineWidth = wdLineWidth075pt '그림테두리 두께 0.75pt로 통일
End With
End With
End Sub



선택한 이미지에 캡션 삽입

Sub image_add_caption()
With Selection
.InsertCaption Label:="그림", TitleAutoText:="InsertCaption1", _
Title:="", Position:=wdCaptionPositionBelow, ExcludeLabel:=0
.Style = ActiveDocument.Styles("[C1] 본문 그림 캡션")
.HomeKey Unit:=wdLine
.TypeText Text:="["
.EndKey Unit:=wdLine
.TypeText Text:="] 캡션작성"
.MoveUp Unit:=wdLine, Count:=1
.Style = ActiveDocument.Styles("[C1] 본문내용")
End With
End Sub


 
https://github.com/jdh5202/longrun/blob/master/word%20macro/%EA%B7%B8%EB%A6%BC%ED%8E%B8%EC%A7%91_%EC%BA%A1%EC%85%98%EC%B6%94%EA%B0%80.vba

반응형