VBA를 활용하여 PowerPoint 슬라이드 노트 한꺼번에 가져오기 [Step by Step]

기술 자료: 2669736 - 이 문서가 적용되는 제품 보기.
그림 축소그림 확대
Step by Step
Step by Step 기술자료 모두 보기 ?
모두 확대 | 모두 축소

저자 소개

이 문서는 배준오 MVP에 의해 작성되었습니다. 배준오 MVP가 운영하는?블로그를 통해 Microsoft 제품에 대한 지식과 정보를 공유하시기 바랍니다.
표 축소표 확대
그림 축소그림 확대
Microsoft Most Valuable Professional
Microsoft MVP(Most Valuable Professionals)는 엄선된 최고의 기술 전문가들로서, 커뮤니티에서 적극적인 활동을 통해 다른 사용자들을 돕는 전문가로 구성된 그룹입니다.

소개

슬라이드 노트의 내용을 다른 문서 작업하는데 이용하기 위해서 슬라이드 노트에 작성한 내용을 가져오기를 원하는 경우가 있습니다. 이 기능은 PowerPoint 자체에서는 제공되지 않습니다.하지만 Microsoft Office에 포함된 VBA 기능을 이용하면 쉽게 추출이 가능합니다
VBA를?이용한 이 방법은?미국의 Microsoft PowerPoint MVP인 Steve가 운영하는 PPT FAQ 사이트에서 가져와서 정리하여 소개합니다.

방법

  1. 슬라이드 노트를 추출하고자 하는 PowerPoint 파일을 실행하세요. 이 경우 슬라이드 노트에 내용이 입력되어 있어야 합니다.

    그림 축소그림 확대
    2669731

  2. 키보드의 [Alt + F11] 키를 눌러 VBA(Microsoft Visual Basic for Application)를 실행시키세요.?

    그림 축소그림 확대
    2669732

  3. [매크로 실행] 단추를 클릭하거나 키보드의?[F5] 키를 누르세요.

    그림 축소그림 확대
    2669733

  4. 매크로 실행 창이 나타나면 임의의 이름을 입력한 다음 [만들기]?버튼을 클릭하세요.?

    그림 축소그림 확대
    2669734

  5. 이후에 프레젠테이션1-Module1(코드) 창이 나타나면 아래의 VBA 코드를 위 2번에서 실행시킨 VBA 창 하단의 직접 실행에 붙여 넣으세요(아래 코드를 선택한 다음 복사/붙여넣기?하면 됩니다).?

    그림 축소그림 확대
    2669735


    Sub ExportNotesText()
        Dim oSlides As Slides
        Dim oSl As Slide
        Dim oSh As Shape
        Dim strNotesText As String
        Dim strFileName As String
        Dim intFileNum As Integer
        Dim lngReturn As Long
        ' Get a filename to store the collected text
        strFileName = InputBox("Enter the full path and name of file to extract notes text to", "Output file?")
        ' did user cancel?
        If strFileName = "" Then
            Exit Sub
        End If
        ' is the path valid?  crude but effective test:  try to create the file.
        intFileNum = FreeFile()
        On Error Resume Next
        Open strFileName For Output As intFileNum
        If Err.Number <> 0 Then     ' we have a problem
            MsgBox "Couldn't create the file: " & strFileName & vbCrLf _
                & "Please try again."
            Exit Sub
        End If
        Close #intFileNum  ' temporarily
        ' Get the notes text
        Set oSlides = ActivePresentation.Slides
        For Each oSl In oSlides
            For Each oSh In oSl.NotesPage.Shapes
            If oSh.PlaceholderFormat.Type = ppPlaceholderBody Then
                If oSh.HasTextFrame Then
                    If oSh.TextFrame.HasText Then
                        strNotesText = strNotesText & "Slide: " & CStr(oSl.SlideIndex) & vbCrLf _
                        & oSh.TextFrame.TextRange.Text & vbCrLf & vbCrLf
                    End If
                End If
            End If
            Next oSh
        Next oSl
        ' now write the text to file
        Open strFileName For Output As intFileNum
        Print #intFileNum, strNotesText
        Close #intFileNum
        ' show what we've done
        lngReturn = Shell("NOTEPAD.EXE " & strFileName, vbNormalFocus)
    End Sub

  6. [매크로 실행] 단추를 클릭하거나 키보드의 [F5] 키를 누르세요.

    그림 축소그림 확대
    2669761

  7. 매크로 기능이 작동되어 슬라이드 노트 내용이 추출된 text 파일의 저장하고자 하는 이름을 입력하는 창이 나타납니다.?

    그림 축소그림 확대
    2669762

  8. [확인]을 클릭하면, 아래 그림처럼 *.txt 파일 형식으로 슬라이드 노트 내용이 추출됩니다.?

    그림 축소그림 확대
    2669763


추가 정보

표 축소표 확대
그림 축소그림 확대
주의사항
매크로 기능이 제대로 동작되기 위해서는 [파일] 탭, [PowerPoint 옵션]의 [보안센터]의 오른쪽 아래의 [보안센터설정]으로 가서 매크로 설정을 <모든 매크로 포함>으로 체크한 다음 [확인]을 눌러 파일을 저장합니다.

의견 보내기

표 축소표 확대
그림 축소그림 확대
의견 보내기

Microsoft 고객지원 사이트에서는 고객님의 소리를 귀담아 듣습니다. 아래 의견 보내기로 소중한 의견 보내주시기 바랍니다.

커뮤니티 솔루션 고지 사항

Microsoft Corporation 및/또는 그 공급자는 어떤 목적으로든 여기에 있는 정보 및 관련 그래픽의 적합성, 안정성 또는 정확성에 대해 어떠한 보증도 하지 않습니다. 이러한 모든 정보 및 관련 그래픽은 어떠한 종류의 보증도 없이 "있는 그대로" 제공됩니다. Microsoft 및/또는 그 공급자는 상품성, 특정 목적에 대한 적합성, 전문적 노력, 제품명 및 비침해에 대한 모든 묵시적인 보증을 포함하여 본 정보 및 관련 그래픽에 대한 모든 보증을 배제합니다. Microsoft 및/또는 그 공급자는 어떠한 경우에도 여기에 포함된 정보 및 관련 그래픽의 사용 또는 사용할 수 없음으로 인해 발생하는 모든 직접적, 간접적, 징벌적, 부수적, 특별 손해 또는 기타 모든 손해(사용, 데이터 또는 이익 손실 등 기타 모든 손실을 포함하되 이에 제한되지 않음)가 계약, 불법 행위, 과실, 책무에 의한 것이든 책임을 지지 않으며 이는 Microsoft 또는 공급자가 그와 같은 손해의 가능성을 사전에 알고 있던 경우에도 마찬가지라는 데 동의합니다.

속성

기술 자료: 2669736 - 마지막 검토: 2013년 9월 30일 월요일 - 수정: 1.2
본 문서의 정보는 다음의 제품에 적용됩니다.
  • Microsoft PowerPoint 2010
  • Microsoft Office PowerPoint 2007
키워드:?
kbstepbystep kbmvp kbcommunity KB2669736

피드백 보내기

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com