求助:将已经写好的调研材料里所有字体格式换为微软雅黑格式怎么操作？

在网上搜索了下，发现百度知道里有个宏命令答案错了，主要出错的原因为“Name”只能改英文字体，“NameFarEast”才是改正确中文字体的命令代码。
遂记下，以后备用查之。

PPT中批量修改字体格式、大小、颜色的宏代码

Sub OED01() '批量修改字体格式、大小和颜色
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 = "楷体_GB2312" '改成需要的字体 (用name只能改英文) 

 .NameFarEast="微软雅黑"     '改成需要的字体(用nameFareast改远东字体) 

 .Size = 20 '改成你需要的文字大小
.Color.RGB = RGB(Red:=2, Green:=2, Blue:=2) '改成你想要的文字颜色
End With
End If
Next
Next
End Sub