성경 구절 PPT 자동 생성(파워포인트로 만들어서 프로젝트로 영상)

혹시 방문하는 분들중에 교회 방송실에서 섬기시는 분들이 있는지 모르겠다

요즘은 목사님의 설교중 인용하시는 성경말씀을 바로 PPT로 띄워주는 교회가 많이 있다
또 찾아보니 상용으로 만들어져 있는것도 같다

내가 다니는 교회 목사님은 설교중에 성경말씀을 많이 인용하시는 편이다
그래서 방송실에서 이 PPT를 사전에 미리 만들어 준비하는게 상당한 일이다

그래서 수고하시는 분들을 위해 작은 도움이나마 될까해서
엑셀을 활용해서 성경구절을 자동으로 찾고 이를 PPT로 만들어주는 엑셀 VBA 프로그램을
제작해보았다

프로그램은 공개하니 도움이 되었으면 한다

 

excel_bible.xlsm

프로그램 실행후에 파워포인트 출력은 아래그림과 같다

여러가지로 활용할수 있는 프로그램이니 VBA를 공부하시는 분들도 참조하시기 바란다
 프로그램에서 사용하는 성경DB는 

요즘 안드로이드 모바일기기에서 많이 사용되는 SQLite이다

성경 DB에는 현재 개역개정, NIV버젼이 들어가 있다

성경DB는 개인적으로 필요해 온라인성경등을 참조해 DB로 만들었지만 저작권문제때문에
블로그에 올리지 못함을 양해해주기 바란다

그러나 프로그램구동을 위해서는 반드시 필요한 부분이라서
요청을해주시면 보내드리려고 한다

 SQLite는 iphone 이나 android 같은 모바일 환경 뿐 아니라 데스크탑 운영체제의 응용프로그램에서도 많이 사용되는 파일기반 RDB다. 2000년에 Richard Hipp 박사에 의해 개발된 무료 DB엔진이다. 복수의 사용자를 지원하지 않는 대신 C언어로 작성되어서 속도가 빠르다. 
 
그래서 프로그램실행을 위해서 먼저 SQLite를 설치하여야 한다
 
설치는 별도의 설치과정이 없이 다운받은 파일들을 적당한 폴더로 압축해제만 해놓으면 된다 

--- 먼저 아래의 주소에서 다운로드 

www.sqlite.org

Download로 들어가   Precompiled Binaries For Windows 에 있는 3개의 zip 파일을
다운받아 c:\sqlite3 폴더에 압축해제한다 

  --- PATH 설정
Windows 7 에서
    시작 -> 제어판 -> 시스템및보안 -> 시스템 -> 고급시스템설정 -> 환경변수
      

XP에서
     시작 -> 제어판 -> 시스템 -> 고급 -> 환경변수 

     시스템변수의 Path 항목을 선택후 편집버튼을 누르고  오른쪽끝에
      ;c:\sqlite3  추가 

 -- 엑셀에서 ODBC 로 DB 접속하기 위해 sqlite odbc 드라이버 설치
      http://www.ch-werner.de/sqliteodbc/  
     위 사이트에 접속하여 sqliteodbc.exe 다운로드후 실행하여 설치

-- 사용할 DB 와의 연결을 위한 설정
 Windows 7 : 시작->제어판->시스템및보안->관리도구->데이타원본(ODBC)
 
XP              : 시작->제어판->관리도구->데이터 원본(ODBC)

추가 버튼을 누르면 아래의 화면

** SQLite3 ODBC Driver 선택,  마침 버튼 누르면

위와 같이 입력하고 OK 버튼 누르면

녹색으로 보이면 정상적으로 ODBC 연결이 된것이다

이제 엑셀 VBA 프로그램을 돌리기위한 준비는 다됐다

첨부한 엑셀파일을 더블클릭하면 아래의 그림으로 나온다


 

각자 원하는 성경, 장, 절을 입력하고 아래그림과 같이 범위를 지정한다

   그리고 원하는 버튼을 선택해 실행하면 된다

엑셀의 경우 Sheet2에 찾은 성경구절이 있고
PPT의 경우 바로 파워포인트로 결과가 디스플레이되고
워드의 경우  C:\MyNewWordDoc이란 파일에 성경구절이 있다