粘贴一段宏代码，请高手帮助

andreyleo

Sub Font2SimSun()
    Set mySlides = ActivePresentation.Slides.Range
    iCount = mySlides.Count
    For i = 1 To iCount
    DoEvents
    ActiveWindow.View.GotoSlide Index:=i
    ActiveWindow.Selection.SlideRange.Shapes.SelectAll
    With ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font
         .NameAscii = "SimSun"
        .NameFarEast = "SimSun"
    End With
    Next i
End Sub

huamokhuam

这是尤其的同事帮我写的一段改字体用的宏代码，在PPT2003很好用。
但是到了PPT2010就不太好使了。有些表格里的文字字体改不了不说，
能改的，在运行完该代码后也会出现这样的报错对话框

粘贴一段宏代码，请高手帮助

有大神愿意指点如何修改吗？