파워포인트 VBA: 슬라이드 텍스트 추출하기

파워포인트 VBA: 슬라이드 텍스트 추출하기

안녕하세요, 파워포인트 VBA에 관심이 있는 여러분들을 위해 오늘은 "슬라이드 텍스트 추출하기"에 대해 알려드리려고 합니다. 파워포인트에서 직접 슬라이드 텍스트를 추출하는 방법을 배워보겠습니다.

1. VBA 에디터 열기

파워포인트를 열고, 메뉴에서 '개발자 도구'를 찾아 클릭합니다. 메뉴에 개발자 도구를 추가해야 한다면 옵션 설정에서 '개발자 도구'를 활성화시킬 수 있습니다. 이후 열린 창에서 'Visual Basic'을 클릭하여 VBA 에디터를 엽니다.

2. VBA 코드 작성

VBA 에디터의 좌측 창에서 '프로젝트 탐색기'를 클릭한 후, 파워포인트 파일을 찾습니다. 해당 파일을 마우스 오른쪽 버튼으로 클릭하고 '모듈 삽입'을 선택합니다. 새로운 모듈이 생성되었다면, 우측 창에 VBA 코드를 작성합니다.

Sub ExtractSlideText()
    Dim ppt As Presentation
    Dim slide As Slide
    Dim shape As Shape
    Dim text As String

    ' 현재 열려있는 파워포인트 파일 가져오기
    Set ppt = ActivePresentation
    
    ' 각 슬라이드별로 텍스트 추출
    For Each slide In ppt.Slides
        text = ""
        
        ' 각 슬라이드의 모든 도형에 대해 텍스트 추출
        For Each shape In slide.Shapes
            ' 텍스트 상자인 경우에만 추출
            If shape.Type = msoTextBox Then
                ' 텍스트 연결 상자인지 확인
                If shape.TextFrame.HasText Then
                    text = text & shape.TextFrame.TextRange.Text & vbCrLf
                End If
            End If
        Next shape
        
        ' 추출된 텍스트 출력
        Debug.Print text
    Next slide
    
    ' 메시지 박스로 결과 보여주기
    MsgBox "텍스트 추출이 완료되었습니다."
End Sub

3. 코드 실행

VBA 코드를 작성한 후, 상단 메뉴에서 [실행(Run)] - [서브루틴 시작]을 클릭하거나 단축키 F5를 눌러 코드를 실행합니다. 그러면 코드가 파워포인트 파일을 순회하며 모든 슬라이드의 텍스트를 추출합니다.

4. 결과 확인

코드 실행이 완료되면, 추출한 텍스트 결과가 VBA 에디터의 하단 창에 표시됩니다. 또한, 메시지 박스로 "텍스트 추출이 완료되었습니다." 라는 알림창이 뜰 것입니다.

 

이제 여러분은 VBA 코드를 활용하여 파워포인트 슬라이드의 텍스트를 추출할 수 있습니다. 이를 응용하여 슬라이드를 자동으로 요약하거나 특정 키워드를 검색하는 등 다양한 활용도를 가질 수 있습니다.

 

이상으로 "파워포인트 VBA: 슬라이드 텍스트 추출하기"에 대해 알아보았습니다. 코드 예제를 통해 실습해보고, 여러분만의 창의적인 아이디어로 활용해보세요. 감사합니다!