使用vba写一份自动更新的PPT

以下是一个使用 VBA 编写的 PowerPoint 自动更新的示例：

首先，需要在 PowerPoint 中添加一个模块，然后编写以下代码：

Sub UpdatePPT()
    Dim sld As Slide
    Dim shp As Shape
    Dim txt As TextRange

    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            If shp.HasTextFrame And shp.TextFrame.HasText Then
                Set txt = shp.TextFrame.TextRange
                If InStr(txt.Text, "{DATE}") > 0 Then
                    txt.Text = Replace(txt.Text, "{DATE}", Format(Date, "yyyy-mm-dd"))
                End If
                If InStr(txt.Text, "{TIME}") > 0 Then
                    txt.Text = Replace(txt.Text, "{TIME}", Format(Time, "hh:mm:ss"))
                End If
            End If
        Next shp
    Next sld

    MsgBox "Presentation has been updated.", vbInformation, "Update Complete"
End Sub

这个 VBA 宏会遍历演示文稿中的每个幻灯片和形状，查找文本框中包含“{DATE}”或“{TIME}”的文本，并将其替换为当前日期或时间。

为了在 PowerPoint 中运行这个宏，可以按下 Alt+F8 打开宏对话框，选择“UpdatePPT”并单击“运行”按钮，或者将宏绑定到演示文稿的快捷键或菜单项中。