用for循环处理
With pptdocument
For Each oSl In .Slides
For Each oSh In oSl.Shapes
With oSh
If .HasTextFrame Then
If .TextFrame.HasText Then
If .TextFrame.TextRange.Font.Name = sFontName Then
right_info_ppt = right_info_ppt + "所有字体都改为微软雅黑得分：1分" + Chr(10)
pptzf = pptzf + 1
End If
End If
End If
End With
Next
Next
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024