批量取消文本加粗

Sub 批量取消加粗()
    Dim osld As Slide
    Dim oshp As Shape
    Dim oTemp As TextRange
    Dim i As Integer
    For Each osld In ActivePresentation.Slides
        For Each oshp In osld.Shapes
            If oshp.HasTextFrame Then
                If oshp.TextFrame.HasText Then
                    Set oTemp = oshp.TextFrame.TextRange
                    For i = 1 To Len(oTemp)
                        If oTemp.Characters(i).Font.Bold = TRUE Then _
                        oTemp.Characters(i).Font.Bold = FALSE
                    Next
                End If
            End If
        Next oshp
    Next osld
    Set oTemp = Nothing
End Sub