PPT 슬라이드 노트를 텍스트 파일로 한 번에 변환하는 방법 (VBA 활용)

---

PPT 슬라이드 노트를 텍스트 파일로 일괄 변환하는 방법 (VBA 활용)

안녕하세요, 슈쥬파파목사입니다! 오늘은 PPT 슬라이드에 작성된 노트를 한 번에 텍스트 파일로 변환하는 방법을 공유하려고 합니다. 이 방법은 VBA 코드를 활용한 간단한 작업으로, 목회 자료나 설교 준비 시 효율적으로 관리할 수 있도록 도와줍니다. 아래 절차를 따라가시면 손쉽게 적용할 수 있습니다.

---

PPT 슬라이드 노트 텍스트 파일로 일괄 변환하기

1. 개발 도구 탭 활성화하기
   PowerPoint에서 상단 메뉴 중 개발 도구 탭을 활성화합니다. (개발 도구가 보이지 않는다면, PowerPoint 옵션에서 '리본 사용자 지정'을 통해 추가할 수 있습니다.)
2. Visual Basic 메뉴 선택하기
   개발 도구 탭에서 Visual Basic을 클릭하여 VBA 편집기를 엽니다.
3. 새 모듈 삽입
   Visual Basic 편집기에서 삽입 > 모듈을 클릭하여 새로운 모듈을 추가합니다.
4. 코드 붙여넣기
   아래의 VBA 코드를 복사하여 새로 만든 모듈에 붙여넣습니다. 이 코드는 PowerPoint 슬라이드의 노트를 텍스트 파일로 변환해 줍니다.
5. 코드 실행하기
   코드 작성이 완료되면, F5 키를 누르거나 실행 > Sub/사용자 정의 폼 실행을 클릭하여 코드를 실행합니다.
6. 결과 파일 확인하기
   PPT 파일이 있는 폴더에 생성된 텍스트 파일에서 각 슬라이드의 노트 내용을 확인할 수 있습니다.

 

 

---

이 VBA 코드를 사용하면 PPT 슬라이드의 노트를 텍스트 파일로 간단히 변환할 수 있습니다. 매번 노트를 복사하여 붙여넣는 수고를 덜고, 시간 절약을 통해 더 효율적으로 설교 준비와 자료 관리를 할 수 있기를 바랍니다. 도움이 되셨다면 좋아요와 댓글 남겨주세요!

#PPT노트변환 #VBA활용 #IT꿀팁 #목회자료관리 #슬라이드노트텍스트추출

---

이 포스트를 통해 텍스트 파일로 슬라이드 노트를 변환하는 과정을 따라 하시고, 목회나 설교 준비에 도움이 되셨기를 바랍니다!

 

vba코딩문(아래 복사붙여넣기하세요)

Sub ExportNotesToText()
    Dim pptApp As Object
    Dim pptPres As Object
    Dim slide As Object
    Dim notes As String
    Dim fileName As String
    Dim fileNum As Integer
    Dim folderPath As String
    
    ' 이미 실행 중인 PowerPoint Application 가져오기
    Set pptApp = GetObject(, "PowerPoint.Application")
    
    ' 현재 열려있는 프레젠테이션 참조
    If pptApp.Presentations.Count > 0 Then
        Set pptPres = pptApp.ActivePresentation
    Else
        MsgBox "열려 있는 PowerPoint 프레젠테이션이 없습니다.", vbExclamation
        Exit Sub
    End If
    
    ' 프레젠테이션의 전체 경로에서 폴더 경로 추출
    folderPath = Left(pptPres.FullName, InStrRev(pptPres.FullName, "\"))
    
    ' 텍스트 파일 이름 설정 (프레젠테이션과 동일한 폴더에 저장)
    fileName = folderPath & Replace(pptPres.Name, ".pptx", ".txt")
    
    ' 텍스트 파일 열기
    fileNum = FreeFile()
    Open fileName For Output As fileNum
    
    ' 각 슬라이드에 대해 노트 추출
    For Each slide In pptPres.Slides
        If slide.HasNotesPage Then
            ' 노트 텍스트 가져오기
            notes = slide.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text
            ' 텍스트 파일에 노트 추가
            Print #fileNum, "Slide " & slide.SlideNumber & " Notes: " & vbCrLf & notes & vbCrLf
        End If
    Next slide
    
    ' 파일 닫기
    Close fileNum
    
    ' 메시지 표시
    MsgBox "Notes exported successfully to " & fileName, vbInformation
End Sub