영화를 보면서 캡쳐한 사진이 수 십 장이 되면서, 이 사진들을 워드로 불러오면 사진들이 주르륵 붙어서 삽입된다.
전에는 일일이 (아래 화살표, 엔터, 엔터) x (사진 수) 만큼 반복해서 작업을 했는데, 작업을 하다 보니 이마저도 귀찮아졌다.
그래서 매크로를 짰다. 단축키는 Alt+3으로 지정했다.
단축키 지정 방법 및 스크립트 삽입 위치는 http://seoddong.tistory.com/157 참조.
이 매크로의 사용하기 위한 전제 조건이 있다.
그림들을 한 번에 여러 장을 선택해서 워드에 삽입해야 하며 이 그림들은 글의 제일 마지막 부분에 위치해야 한다는 것이다.
왜냐햐면 이 매크로는 단순히 단축키를 누를 때마다 아래 [화살표, 엔터, 엔터]를 10번씩 반복하는 것에 불과하기 때문이다.
그림까지 삽입을 하였으면 커서를 첫 번째 그림의 바로 윗 줄 혹은 첫 번째 그림의 앞에 둔 상태에서 단축키를 누른다.
아래는 스크립트다.
Sub enter10()
'
' enter10 Macro
' 그림 사이 엔터 넣기
' Alt + 3
'
For ii = 1 To 10
Selection.MoveDown Unit:=wdLine, Count:=1
'엔터
Selection.TypeParagraph
Selection.TypeParagraph
Next
End Sub
