[오토잇] doc,docx 파일을 txt, pdf 파일로 변환하는 프로그램
첨부된 "양식 파일" 다운로드 링크는 아래로 내리시면 연관(관련)된 서식 목록 아래 쪽에 있습니다.
먼저 이 프로그램은 ms word의 프로그램을 이용하기 때문에 해당 프로그램이 설치된 상태에서만 사용이 가능 합니다.
프로그램은 AutoIT에 포함된 UDF(보통 함수라 부르는것)으로 만들어져 있어 심플 합니다.
아래에는 txt, pdf만 조건에 들어가 있지만 html 같은 것도 가능하기 때문에 필요하신 분은 첨부된 파일의 상수 설정을 보고 약간 수정해서 사용하시면 됩니다.
가능한것은 word 프로그램에서 다른이름으로 저장하기 에서 저장가능한 종류에 대한 것이 가능합니다.
예를 들어 png 이미지로 내보내고 싶은데 없으면 PDF로 저장한 다음 PDF를 이미지로 변환하는 프로그램을 이용해야 됩니다.
#Region ;**** created by AutoIt3 ****
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Description="docx to txt, pdf"
#AutoIt3Wrapper_Res_LegalCopyright=www.pabburi.co.kr
#AutoIt3Wrapper_Res_Language=1042
#EndRegion ;**** created by AutoIt3 ****
#cs
# ----------------------------------------------------------------------------
#
# docx to txt, pdf
# - MS Word가 설치 되어 있어야 한다.
#
# Author: pabburi.co.kr
# Date :
#
# ----------------------------------------------------------------------------
-
#ce
#Include <File.au3>
#Include <Array.au3>
#Include <String.au3>
#include <Word.au3>
#include <MsgBoxConstants.au3>
$mode = 'pdf'
$srcFile = ''
$dstFile = ''
; 인자 입력 및 유효 파일 체크
If $CmdLine[0] >= 1 Then $mode = $CmdLine[1]
If $CmdLine[0] >= 2 Then $srcFile = $CmdLine[2]
If $CmdLine[0] >= 3 Then $dstFile = $CmdLine[3]
If $srcFile == '' OR Not FileExists($srcFile) Then
$srcFile = @ScriptDir & "\" & "1doc.docx"
$dstFile = @ScriptDir & "\" & "1doc.pdf"
EndIf
ConsoleWrite('mode: ' & $mode & @CRLF)
ConsoleWrite('srcFile: ' & $srcFile & @CRLF)
ConsoleWrite('dstFile: ' & $dstFile & @CRLF)
;
If FileExists($srcFile) Then
;
Local $oWord = _Word_Create(False)
Local $oDoc = _Word_DocOpen($oWord, $srcFile)
;~ ; 페이지수 - 정확하지 않은 방식
;~ $oDoc.ActiveWindow.Panes(1).Pages.Count
;~ ; 테이블수
;~ $oDoc.tables.Count
;~ ; 단어수
;~ $oDoc.ActiveWindow.Panes(1).Range.Information(3)
;~ ; 문자수
;~ $oDoc.ActiveWindow.Panes(1).Range.Information(4)
IF $mode=="txt" Then
_Word_DocSaveAs($oDoc, $dstFile, 4)
ElseIF $mode == 'pdf' Then
_Word_DocSaveAs($oDoc, $dstFile, $WdExportFormatPDF)
EndIf
_Word_Quit($oWord)
EndIf
워드 다른 이름으로 저장할때 사용하는 포맷 지정의 상수는 첨부된 파일을 참고 하시면 됩니다.
파일의 위치는 OS나 설치 방법에 따라 약간 다를 수 있으나 AutoIT이 위치한 디렉토리 기준으로 include 에 있습니다.
C:\Program Files (x86)\AutoIt3\Include
● 엑셀 프로그램 변환이 필요하면
- [오토잇] 엑셀파일(xlsx,xls)을 txt,csv 변환 저장하는 프로그램 > autoit
첨부파일