function chkDays(){
    var f = document.form;
    var year = f.year.value;
    var month = parseInt(f.month.value,10);
    var length = 0;
   
    if (month == 4 || month == 6 || month == 9 || month == 11) {
        length=30;
    }else if(month == 1 || month == 3 || month == 5 || month == 7 || month == 8 || month == 10 || month == 12) {
        length=31;
    }else if ( (year % 4 == 0) && (year % 100 != 0) || (year % 400 == 0) ) {
        length=29;
    }else{
        length=28;
    }

    f.day.length = length;
    for ( var i = 1; i <= length; i++) {
        if(i<10){
            f.day.options[i - 1].text = "0"+i;
            f.day.options[i - 1].value = "0"+i;
        }
        else{
            f.day.options[i - 1].text = i;
            f.day.options[i - 1].value = i;
        }
    }
}

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
----------------------------------------------------------------------------------------------------------------
5.F5
6.TEXT파일명 입력 후 확인


출처 : http://powerpoint.pe.kr/60135399205