如何在Powerpoint演示文稿中为每一行添加句点

Question

我是VBA的新手，所以请耐心等待。

我正在尝试使用VBA在整个演示文稿中为幻灯片中的每个句子添加句点。

以下是我用于将句点添加到一个幻灯片和形状的代码：

Sub Period() 
      Application.ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange.AddPeriods
End Sub

但是现在，我想要遍历每个幻灯片和形状并做同样的事情。我试过以下代码：

Sub period()

    Dim sld As Slide
    Dim shp As Shape

    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            sld.shp.TextFrame.TextRange.AddPeriod
        Next shp
    Next sld

End Sub

有关我如何解决这个问题的任何想法？谢谢！