vba
Sub UpdateText()
Dim slide As Slide
Dim shape As Shape
' 遍历所有幻灯片
For Each slide In ActivePresentation.Slides
' 遍历幻灯片中的所有形状
For Each shape In slide.Shapes
' 如果形状包含文本框
If shape.HasTextFrame Then
If shape.TextFrame.HasText Then
' 更新文本框中的内容
shape.TextFrame.TextRange.Text = 这是自动更新的文本
End If
End If
Next shape
Next slide
End Sub