The code works with the replace , position except with the indentation I am trying to establish
Before text = 0 cm, Special = None, Alignment = Left"
I have established the code below
Sub changeFont()
For Each aSlide In ActivePresentation.Slides
For Each aShape In aSlide.Shapes
Dim x...