엑셀자료 사용 안내 엑셀 매크로(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개 첨부 됨 ( / )

  1. 엑셀 프로그램 요청하기(무료 또는 책 구입 후원)

    Date2021.06.07 By지천명영어 Views672
    read more
  2. 엑셀 VBA로 PDF파일 페이지 나누기

    Date2022.12.13 By지천명영어 Views34
    Read More
  3. 이미지 속에 있는 표를 OCR로 인식 후, 테이블 데이터로 만들기

    Date2022.12.11 By지천명영어 Views31
    Read More
  4. 엑셀 스크롤바 일치 시키기(UsedRange 에러)

    Date2022.11.24 By지천명영어 Views18
    Read More
  5. 엑셀 다운로드 후 매크로 차단(보안 위험 Microsoft는 이 파일의 출처를 신뢰할 수 없기 때문에 매크로 실행을 차단했습니다.

    Date2022.11.13 By지천명영어 Views357
    Read More
  6. 엑셀 리본메뉴 imageMso (이미지 아이콘 검색)

    Date2022.08.25 By지천명영어 Views119
    Read More
  7. 수도쿠로 숫자와 친해지기(엑셀 매크로(VBA)로 스도쿠 프로그램 만들기(1/3)(2022.6.4 압데이트)

    Date2022.06.01 By지천명영어 Views397
    Read More
  8. 엑셀 공백 행. 열 전부 삭제 (엑셀에서 공란인 행과 열을 찾아서 한번에 삭제해 줍니다.)

    Date2022.05.27 By지천명영어 Views1081
    Read More
  9. 파파고와 구글번역을 한번에(지천명영어) 프로그램 사용법

    Date2022.05.24 By지천명영어 Views872
    Read More
  10. 엑셀 표를 웹형식의 html 코드로 만들기(글꼴 설정, 셀병합 , 하이퍼링크 , 테두리 표시 등을 코드로 만들어 줍니다.)

    Date2022.05.23 By지천명영어 Views607
    Read More
  11. 대법원 부동산 경매 물건 검색 크롤링(엑셀) - 타 프로그램 없이 직접 엑셀에서 경매 물건 검색

    Date2022.05.13 By지천명영어 Views707
    Read More
  12. 엑셀로 PPT파일을 자동으로 만들기

    Date2022.04.18 By지천명영어 Views996
    Read More
  13. 영어, 일본어 듣기 공부 용 mp3 파일 가사 만들기 - 일괄 만들기

    Date2022.04.10 By지천명영어 Views176
    Read More
  14. 일본어 한자 후리가나 자동입력 및 파파고 한글번역 그리고, 구글 영어번역까지 한번에

    Date2021.11.17 By지천명영어 Views846
    Read More
  15. MS오피스 언어가 일본어로 나올 때 한국어로 바꾸기

    Date2021.10.31 By지천명영어 Views663
    Read More
  16. PDF 영어문장 합치기(PDF 문서 영어 글자를 정상적인 영문으로 일괄 바꿔주기)

    Date2021.06.28 By지천명영어 Views568
    Read More
  17. 엑셀에 마이크로소프트(MS) 영어 음성합성시스템(TTS) 설치하기

    Date2021.06.13 By지천명영어 Views491
    Read More
  18. 따옴표 없이 엑셀 글자 복사하기

    Date2021.06.08 By지천명영어 Views3130
    Read More
  19. 구글 번역을 엑셀로, 텍스트 문장을 한꺼번에 구글 번역하기

    Date2021.06.07 By지천명영어 Views2696
    Read More
  20. 엑셀 비어있는 셀(공란인 행 또는 열) 한번에 삭제하기

    Date2021.06.05 By지천명영어 Views951
    Read More
  21. 엑셀 책 쪽수 자동 계산하는 법

    Date2021.06.05 By지천명영어 Views197
    Read More
Board Pagination Prev 1 2 Next
/ 2

LOGIN

SEARCH

MENU NAVIGATION