Expand slide was removed for PPT 2000.  However, after this message is a
macro you can create which performs the needed functionality.  I got it
from someone on the list back in August, but I can't remember who
(?Shyam or Brian or Steve, I think?).  Hope it helps.

Kathy Jacobs
Macro ExpandSlide (To insert this macro, create a macro called
"ExpandSlide" and copy the following code between the Sub... and End...
statements.)
' Enable the error handler.
       '
       On Error GoTo ErrorHandler

       Dim oShape As Shape
       Dim i As Long
       Dim oSlide As Slide
       Dim strTitle As String
       Dim lStrLen As Long
       Dim lParas As Long
       Dim lCurrIndex As Long
       Dim lLastSlide As Long
       Dim ErrMsg As String

       ' Check to see if the presentation is in the correct view.
       ' Raise the custom error message 555.
       '
       If ActiveWindow.ViewType <> ppViewNormal And ActiveWindow.ViewType _
         <> ppViewSlide Then
          Err.Raise 555, "Expand Slide Macro", _
            "Not in Slide View or Normal View"
       End If

       With ActiveWindow.Selection
       ' Set lCurrIndex to the current slide index.
       ' Set lLastslide to the current slide index.
       '
          lCurrIndex = .SlideRange.SlideIndex
          lLastSlide = lCurrIndex

       ' Check each shape of the current slide; check to
       ' see if it is a Body placeholder.
       '
          For Each oShape In .SlideRange.Shapes
             If oShape.PlaceholderFormat.Type = ppPlaceholderBody Then

       ' Set lParas to the number of paragraphs in the
       ' Body placeholder. Does not differentiate between
       ' first level bullets and lower level bullets.
       '
                lParas = oShape.TextFrame.TextRange.Paragraphs.Count

                For i = 1 To lParas

       ' Set strTitle to the current paragraph index.
       '
                   strTitle = oShape.TextFrame.TextRange.Paragraphs(i).Text

       ' Determine how long the string is. Then, as long as
       ' it is not the last parapgraph in the Body placeholder,
       ' strip off the last two characters, the line feed and
       ' carriage return.
       '
                   lStrLen = Len(strTitle)
                   If lParas <> i Then
                      strTitle = Left(strTitle, lStrLen - 2)
                   End If

       ' Set lLastSlide to the next available index position.
       ' Create a news slide, with the Bulleted Text layout.
       ' Assign the text from the current paragraph to the
       ' title placeholder. Return to the original slide.
       '
                   lLastSlide = lLastSlide + 1
                   Set oSlide = _
                     ActivePresentation.Slides.Add(lLastSlide, ppLayoutText)
                   oSlide.Shapes(1).TextFrame.TextRange.Text = strTitle
                   ActiveWindow.View.GotoSlide (lCurrIndex)
                Next i
             End If
          Next
       End With
    Exit Sub
ErrorHandler:
       ' Create Error message and raise dialog with error message.
       '
       ErrMsg = "Error:" & Err.Source & vbNewLine & Err.Description
       MsgBox ErrMsg, vbCritical, "Error Message"

--
Kathryn Jacobs,  BrainBench MVP MS PowerPoint
Get Certified at http://www.brainbench.com
Personal Home Page: http://home.talkcity.com/ScholarSt/rainbow62/index.html
Trainer, Girl Scout, parent, and whatever else there is time for
Life is meant to be lived. But:
if we live without making a difference, it makes no difference that we lived