[파워포인트] 매크로를 이용하여 슬라이드 노트를 텍스트 파일로 일괄저장하는 방법

PPT 발표를 준비하면서 PPT의 슬라이드 노트에 스크립트를 작성하는 경우가 많은데요. 슬라이드 노트를 출력하면 페이지수가 길어지기 때문에 본문 없이 텍스트만 저장할 수 없을까 고민이 되었습니다. 슬라이드 수가 적다면 하나씩 복사해서 텍스트파일에 붙여 넣으면 되지만, 슬라이드가 많으면 매우 번거롭고 귀찮은 일이 아닐 수 없습니다.

그래서 슬라이드 노트를 텍스트파일로 일괄 저장하는 방법을 알아보겠습니다.

슬라이드 노트 일괄저장 방법

1. 유인물 만들기 이용

기본적으로 파워포인트에서 제공하는 유인물 만들기 기능을 이용할 수 있습니다.

https://thankthankrain.tistory.com/360

파워포인트 슬라이드 노트만 인쇄하기 (유인물 만들기)

하지만, 사용자 환경에 따라 유인물 만들기가 불가능할 수 있는데요. 저도 사내 PC에서 유인물 만들기 기능이 사용 불가했습니다. 그래서 아래와 같이 매크로를 이용하는 방법을 알아보았습니다.

2. 매크로를 사용하여 슬라이드 노트를 텍스트 파일로 저장하기

1. 개발 도구 -> 매크로를 눌러서 매크로 메뉴에 진입합니다. 만약 개발 도구 -> 매크로 메뉴가 보이지 않는다면, 아래 글을 참고하세요.

2023.03.11 - [IT일반/소소한 팁] - [파워포인트] 개발 도구 - 매크로 메뉴 활성화하는 방법

2. 매크로 이름에 save_note를 입력하고 만들기 버튼을 클릭합니다.

3. 새 창이 열리면서 Visual Basic Editor가 실행됩니다. 여기에 아래의 코드를 복사해서 붙여 넣기 합니다.

Sub ExportNotesText()
    Dim oSlides As Slides
    Dim oSl As Slide
    Dim oSh As Shape
    Dim strNotesText As String
    Dim strFileName As String

    ' 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

    Open strFileName For Output As #1

    Set oSlides = ActivePresentation.Slides

    For Each oSl In oSlides
        ' Get the notes text for this slide:
        With oSl.NotesPage.Shapes.Placeholders(2)
            If .HasTextFrame Then
                If .TextFrame.HasText Then
                    strNotesText = .TextFrame.TextRange.Text
                End If
            End If
        End With

        ' Print it all to a file:
        Print #1, "Slide: " & CStr(oSl.SlideIndex)
        Print #1, strNotesText
        Print #1,
        Print #1,
        
    Next oSl

Close #1

End Sub

4. 이제 F5를 누르거나, 에디터 상단 메뉴 실행 버튼을 클릭합니다.

5. 저장할 파일명과 경로를 입력하는 창이 나타납니다. 따로 경로 없이 저장하면, PPT파일과 같은 경로에 저장합니다.

6. 슬라이드 노트 파일이 생성되었습니다.

7. 열어보면 슬라이드 번호별로 슬라이드노트가 저장된 것을 볼 수 있습니다.