刚刚收听节目的时候，出现了播放1分多钟以后，音频重新播放的情况，但是进度条仍然在1分多钟位置，如此几次，请问掌柜，是我的电脑问题么？

王掌柜您好，由于我老板的个人便好，我需要将ppt字体全部统一成中文“华文细黑”，英文“arial”，我自己在网上抄了一个vba的宏来做这个事情，但是只能解决文本框的部分，表格内的文本不能统一刷，请问这个问题您有什么更好的解决方案吗，非常感谢.
Sub change()
Dim oShape As Shape
Dim oSlide As Slide
Dim oTxtRange As TextRange
On Error Resume Next
For Each oSlide In ActivePresentation.Slides
For Each oShape In oSlide.Shapes
Set oTxtRange = oShape.TextFrame.TextRange
If Not IsNull(oTxtRange) Then
With oTxtRange.Font
.Name = “Arail” ‘更改为需要的英文字体
.NameFarEast = “华文细黑” ‘改成需要的字体(用nameFareast改中文字体)
End With
End If
Next
Next
End Sub