지난 포스팅에서 perl 을 이용한 워드 문서 생성 자동화에 대해 간략히 소개 드렸었는데요.



2012/01/11 - [컴퓨터일반] - Perl을 이용한 MS word 문서 생성 자동화


 

아래 주소의 글을 보니 Autohotkey_L 을 이용한 MS word 에 대한 예제 코드가 있더군요.

 

http://www.autohotkey.com/community/viewtopic.php?t=61509&start=30&p=393082#p393082

 

위 링크의 예제에서 끝에 파일로 저장하도록 수정해 봤습니다.

 

코드는 다음과 같구요~

 

oWord := ComObjCreate("Word.Application") ; create MS Word object

oWord.Documents.Add ; create new document

 

oWord.Selection.Font.Bold := 1 ; bold

oWord.Selection.TypeText("Visit ") ; type text

oWord.ActiveDocument.Hyperlinks.Add(oWord.Selection.Range, "http://www.autohotkey.com/forum/topic61509.html"

,"","","COM Object Reference [AutoHotkey_L]") ; insert hyperlink

oWord.Selection.TypeText("and learn how to work with ") ; type text

oWord.Selection.Font.Italic := 1 ; italic

oWord.Selection.TypeText("COM objects") ; type text

oWord.Selection.Font.Bold := 0, oWord.Selection.Font.Italic := 0 ; bold and italic off

oWord.Selection.TypeText(".") ; type text

oWord.Selection.TypeParagraph ; type paragraph (enter, new line)

 

;~ oWord.Visible := 1, oWord.Activate ; make it visible and activate it.

 

oWord.ActiveDocument.saveas("c:\autohotkeyMSWORD.docx")

oWord.Quit()

 

보시면 아시겠지만 autohotkeyMSWORD.docx 라는 워드 파일이 만들어집니다.

 

매번 반복해서 작성하게 되는 문서는 이런 자동화 툴들을 이용하면 편리하겠죠~

 

작성된 결과는 이렇게 보이더군요~




 


+ Recent posts