Sub showSettingDialog()
 
    settingsForm.Show
 
End Sub
 
Sub showInfoDialog()
 
    helpForm.Show
 
End Sub
 
 
 
Sub AddSection()
    On Error Resume Next
    Dim presentation As Object
    Dim s As PowerPoint.Shape
    presentation = Application.ActivePresentation
 
    Set s = Application.ActiveWindow.Selection.SlideRange.Shapes.AddShape( _
      msoShapeRectangle, 10, 10, 10, 10)
    s.Name = "section"
    s.Visible = False
 
    Application.ActiveWindow.Selection.SlideRange.Comments.Add 0, 0, "", "", _
      "Section"
 
 
End Sub
 
Sub AddIgnoreSlide()
    On Error Resume Next
    Dim presentation As Object
    Dim s As PowerPoint.Shape
    presentation = Application.ActivePresentation
 
    Application.ActiveWindow.Selection.SlideRange.NotesPage.Tags.Add "Ignore", _
      "True"
    Set s = Application.ActiveWindow.Selection.SlideRange.Shapes.AddShape( _
    msoShapeRectangle, 10, 10, 10, 10)
    s.Name = "ignore"
    s.Visible = False
 
    Application.ActiveWindow.Selection.SlideRange.Comments.Add 0, 0, "", "", _
      "Ignore"
End Sub
 
 
Sub RemoveSection()
    On Error Resume Next
    Dim currentSlide As slide
    'Dim currSlideNum As Integer
 
    'currSlideNum = ActiveWindow.View.Slide.SlideIndex
    'Set currentSlide = ActiveWindow.Selection.SlideRange.Item(currSlideNum)
    'Set currentSlide = ActivePresentation.Slides(currSlideNum)
 
 
    Set currentSlide = ActivePresentation.Slides(ActiveWindow.View.slide.Name)
 
 
 
    With currentSlide
        .Shapes("section").Delete
        .Comments.Item(1).Delete
    End With
End Sub
 
Sub RemoveIgnoreSlide()
   On Error Resume Next
    Dim currentSlide As slide
 
    Set currentSlide = ActivePresentation.Slides(ActiveWindow.View.slide.Name)
 
    With currentSlide
        .Shapes("ignore").Delete
        .Comments.Item(1).Delete
    End With
End Sub