For my revision documents I often create a master slide and duplicate it lots of times. The following code will duplicate Slide 1 twenty times and when I use it it’s easy to step inside and change Slide 1 to whichever slide I want to duplicate, and change the 20 to 100 if I need to.
Dim Words
For Words = 20 To 1 Step -1
Set newSlide = ActivePresentation.Slides(1).Duplicate
Next Words
Chemistry Word VBA macros 