对多张纸执行一个操作

Question

我写了下面的代码，让我把文字放到我的第一张纸的第一个形状

   Sub OpenFiles()

   With ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange

   .Text = "test"

  End With


   End Sub

但我希望将其应用于演示文稿中所有首页形状。有没有人知道如何为此增强我的代码。

亲爱的，

Marc

Answer 1

Sub OpenFiles()

Dim oSl as Slide

For Each oSl in ActivePresentation.Slides

  oSl.Shapes(1).TextFrame.TextRange.Text = "test"

Next

End Sub

Answer 2

Sub OpenFiles()

Dim oSl as Slide

For Each oSl in ActivePresentation.Slides

  oSl.Shapes(1).TextFrame.TextRange.Text = "test"

End With

End Sub

现在看看KazJaw的第一个评论并尝试一下。