[한글 자동화] 업무연락처 자동화

아래아 한글 자동화에 관해서 처음으로 글을 쓴다.

아래아 한글 관련해서는 한글 API에 대해서 좀 알아야 한다.

 

https://m.blog.naver.com/husky81/222045248589

BckHWP - 한글 자동화 프로그램

거위의 꿈이라는 분이 한글 API를 펑션으로 만들어 놓아서 그걸 참고로 하시면 하나씩 만들어 보실 수 있으리라 본다.

 

뭔가 거창한거 같지만 좌표식으로 입력되는 거라서 한두번 해보면 감이 오겠지만, 그렇지 않고 눈으로 보려고 하면 계속 코드를 놓치게 될것이다.

 

VBA 관련해서는 단순 For문을 돌면서 해당 내용들을 인쇄하는 구문이라 그리 어렵지 않을 것이다.

 

코드 진행은 이렇다...

 

총 4번을 반복하게 될거구

 

한번 반복할때마다 20명의 연락처를 기입하게 된다.

 

만약 비고에 실명확인이 있다면 연한 회색으로 음영을 칠하게 된다.

 

이게 전부이다.

for i = 1 To 20
    n = n + 1
    str = etc

    If str = "-" Then
        fn.writeTextNext CStr(n), name, tel, part, str
    Else
        fn.tableSelectRow
        fn.tableBackgroundLightGray
        fn.tableMoveLeftEnd
        fn.writeTextNext CStr(n), name, tel, part, str
        Run "Cancel"

    End If


Next i

한번 반복하게 되면 문서의 끝으로 가서 다음 장으로 넘겨야 바로 이어붙지 않고 새롭게 시작하게 되는데

MovetoPos 3, 0, 0
Run ("BreakLine")

 

그 코드가 바로 이코드이다.

 

본인도 신규 함수들을 하나의 모듈에 모아놓고 있기 때문에 개인적으로 만들고 싶으면 계속 업데이트해서 함수를 업데이트 해야한다.

 

 

그럼 이만

 

 

한글자동화_표만들기.xlsm

0.10MB