如何将演示文稿中的样式替换为其他样式?

这是一个开始:

Option Explicit

' Edit these to reflect the names of the fonts
' you want to change from and to:
Const ChangeFromFont As String = "Consolas"
Const ChangeToFont As String = "Courier New"

Sub ChangeFontName()

    Dim oSh As Shape
    Dim oSl As Slide

    For Each oSl In ActivePresentation.Slides
    For Each oSh In oSl.Shapes
        If oSh.HasTextFrame Then
        If oSh.TextFrame.HasText Then
            With oSh.TextFrame.TextRange
                If UCase(.Font.Name) = UCase(ChangeFromFont) Then
                    .Font.Name = ChangeToFont
                End If
            End With
        End If
        End If
    Next
    Next

End Sub