현재 오프라인 상태입니다. 인터넷에 다시 연결하기를 기다리고 있습니다.

이 브라우저는 지원되지 않습니다.

사이트를 사용하여 브라우저를 업데이트해야 합니다.

최신 버전의 Internet Explorer를 업데이트하세요.

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

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

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

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


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


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


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


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



    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] 키를 누르세요.


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


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



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

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

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

문서 ID: 2669736 - 마지막 검토: 06/02/2014 07:49:00 - 수정: 1.3

  • Microsoft PowerPoint 2010
  • Microsoft Office PowerPoint 2007
  • kbstepbystep kbmvp kbcommunity KB2669736
피드백
microsoft.com/c.gif?DI=4050&did=1&t=">d=1&t=">pe="text/javascript"> Asimov.clickstreamTracker.init(); ow.location.protocol) + "//c.microsoft.com/ms.js'><\/script>");