엑셀자료 사용 안내 엑셀 매크로(VBA)를 이용하여 만든 간단한 프로그램과 엑셀 매크로(VBA)를 배울 수 있는 강좌가 있습니다.따라서, 대부분 프로그램을 이용하기 위해서는 엑셀 매크로 사용하기 설정을 하여야 합니다. (1.보안설정) 클릭 (2.개발도구설정) 클릭 3.매크로 차단 해제 방법

PDF파일을 OCR로 인식 시키려면 네이버 OCR은 1장씩만 지원됩니다. 그래서 PDF파일 자르기 프로그램을 찾았으나, 역시, 전부 복잡합니다.

 

그래서 답답해서 만든 pdf 파일자르기를 엑셀로 만들었습니다. 제가 만든건 아니고, 역시나 엑셀 고수분들께서 미리 만들어 놓은 코드를 조합했습니다.

 

1. PDF페이지를 엑셀에서 읽어오기

2. 1페이지 단위로 PDF파일을 쪼개기(PDFtk이용)

 

PDFtk를 사용하기 위해서는 shell명령을 사용해야 합니다. 하지만, 아크로벳리더가 설치 안되어 있으면 shell 명령 안됩니다.

이때는 디버그 프린트 텍스트를 cmd에 붙여 넣으면 됩니다.

아니면, 아크로벳리더를 설치하고 다시 실행하면 PDF파일 쪼개기 잘 됩니다.

 

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
'답답해서 만든 pdf 파일자르기 -
' 아크로벳리더가 설치 안되어 있으면 shell 명령 안됨.
' 디버그 프린트 텍스트를 cmd에 붙여 넣으면 됩니다.
 
Sub Extracting_Pdf_Using_PdfTk_Server()
 
Dim i_folder As String:     i_folder = "C:\temp\"                '이곳에 폴더이름을 넣으세요/
Dim i_pdf_file:             i_pdf_file = "KCI_FI002869020.pdf"   '이곳은 파일이름을 넣으세요
Dim i_object As Object:     Set i_object = CreateObject("WScript.Shell")
Dim I, j As Long
Dim i_str As String
   
Dim i_all_page As Integer
    
Dim xFileNum As Long
Dim xStr As String
Dim RegExp As Object
    Set RegExp = CreateObject("VBscript.RegExp")
    RegExp.Global = True
    RegExp.Pattern = "/Type\s*/Page[^s]"
    xFileNum = FreeFile
    Open (i_folder & i_pdf_file) For Binary As #xFileNum
        xStr = Space(LOF(xFileNum))
        Get xFileNum, , xStr
    Close xFileNum
    
    i_all_page = RegExp.Execute(xStr).Count
    
    For I = 1 To i_all_page
        i_str = "cmd /c PDFtk " & i_folder & i_pdf_file & " cat " & I & " output " & i_folder & Left(i_pdf_file, Len(i_pdf_file) - 3) & "_" & Format(I, "000") & ".pdf"
        Debug.Print i_str
        i_object.Run i_str, 0, True
    Next
  
End Sub
cs
사진 및 파일 첨부

여기에 파일을 끌어 놓거나 왼쪽의 버튼을 클릭하세요.

파일 용량 제한 : 0MB (허용 확장자 : *.*)

0개 첨부 됨 ( / )

List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 엑셀 프로그램 요청하기(무료 또는 책 구입 후원) 6 file 지천명영어 2021.06.07 1371
14 MS오피스 언어가 일본어로 나올 때 한국어로 바꾸기 file 지천명영어 2021.10.31 2685
13 일본어 한자 후리가나 자동입력 및 파파고 한글번역 그리고, 구글 영어번역까지 한번에 2 file 지천명영어 2021.11.17 2027
12 영어, 일본어 듣기 공부 용 mp3 파일 가사 만들기 - 일괄 만들기 1 file 지천명영어 2022.04.10 544
11 엑셀로 PPT파일을 자동으로 만들기 4 file 지천명영어 2022.04.18 6778
10 대법원 부동산 경매 물건 검색 크롤링(엑셀) - 타 프로그램 없이 직접 엑셀에서 경매 물건 검색 4 file 지천명영어 2022.05.13 2771
9 엑셀 표를 웹형식의 html 코드로 만들기(글꼴 설정, 셀병합 , 하이퍼링크 , 테두리 표시 등을 코드로 만들어 줍니다.) 3 file 지천명영어 2022.05.23 5109
8 파파고와 구글번역을 한번에(지천명영어) 프로그램 사용법 61 file 지천명영어 2022.05.24 2482
7 엑셀 공백 행. 열 전부 삭제 (엑셀에서 공란인 행과 열을 찾아서 한번에 삭제해 줍니다.) file 지천명영어 2022.05.27 5050
6 수도쿠로 숫자와 친해지기(엑셀 매크로(VBA)로 스도쿠 프로그램 만들기(1/3)(2022.6.4 압데이트) file 지천명영어 2022.06.01 1335
5 엑셀 리본메뉴 imageMso (이미지 아이콘 검색) file 지천명영어 2022.08.25 886
4 엑셀 다운로드 후 매크로 차단(보안 위험 Microsoft는 이 파일의 출처를 신뢰할 수 없기 때문에 매크로 실행을 차단했습니다. 2 file 지천명영어 2022.11.13 5929
3 엑셀 스크롤바 일치 시키기(UsedRange 에러) file 지천명영어 2022.11.24 275
2 이미지 속에 있는 표를 OCR로 인식 후, 테이블 데이터로 만들기 2 file 지천명영어 2022.12.11 1945
» 엑셀 VBA로 PDF파일 페이지 나누기 PDF파일을 OCR로 인식 시키려면 네이버 OCR은 1장씩만 지원됩니다. 그래서 PDF파일 자르기 프로그램을 찾았으나, 역시, 전부 복잡합니다. 그래서 답답해서 만든 p... 지천명영어 2022.12.13 676
Board Pagination Prev 1 2 Next
/ 2

LOGIN

SEARCH

MENU NAVIGATION