在已经完成的PPT中，选择性的将所有8号字批量改为10号

ojeta321525

在已经完成的PPT中，选择性的将所有8号字批量改为10号

各位：我是个PPT新手啊~~~

在完成了50多页的PPT后，领导要求改已经完成的字号，晕哇，即

1、将所有14号都改为16号字体，黑体，

2、将所有10号都改为8号，灰色字体

我要疯了，我做的时候没有使用PPT母版啊，都是在空白模板上操作的！

网上找了一个有一个统一将所有字体更改的宏：

Sub 统一字体() '批量修改字体格式、大小和颜色
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
             .Size = 12       '改成你需要的文字大小
             .Bold = msoFalse '不是粗体
             .Shadow = msoFalse '不带阴影
             .Emboss = msoFalse
          End With
          End If
   Next
   Next
End Sub


想问一下各位大侠，有选择性修改的宏吗？