Would be good to see the file but if there are only 2 simple animations try:
Sub reversi()
Dim osld As Slide
For Each osld In ActivePresentation.Slides
If osld.TimeLine.MainSequence.Count = 2 Then ' 2 animations
osld.TimeLine.MainSequence(2).MoveTo 1
End If
Next osld
End Sub
BTW We have a proper flash card creation AddIn (not free but cheap)
http://www.pptalchemy.co.uk/flashcards.html