要批量修改PPT里所有幻灯片的字体段落格式，目前只有通过宏来实现，网上有很多代码，但是都太乱，还有很多错误，于是笔者自行整理并试验，形成如下宏代码，可以满足绝大部分修改要求。那么接下来请大家跟小编来编辑一下代码吧。

PPT2013批量修改幻灯片的字体段落

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

.NameFarEast = "微软雅黑" '设置中文字体

.Name = "Calibri" '设置英文字体

.Size = 16 '设置字体大小

.Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) '设置字体颜色

End With

With oTxtRange.ParagraphFormat

.SpaceWithin = 1 '设置行距

.SpaceBefore = 0 '设置段前间距

.SpaceAfter = 0 '设置段后间距

End With

End If

Next

Next

End Sub