---

Sub enumList()
'En muligvis bedre Word makro er i test.
'Slet det sidste tegn (=), og tast det ind igen. Marker en
'af listens typer og tryk TAB. Sæt markøren i øverste linie
'og tryk F5.
'Præsentationen har nu sin første slide.
'Denne Word makro kan udstyres med genvej eller knap efter
'ønske.
'Rutine til at fjerne titellinien (PP2002) følger.

ActivePresentation.Slides(1).Layout =
End Sub