PPT2013如何批量修改幻燈片的字體段落

PPT2013如何批量修改幻燈片的字體段落

　　要批量修改PPT里所有幻燈片的字體段落格式，目前只有通過(guò)宏來(lái)實(shí)現(xiàn)，網(wǎng)上有很多代碼，但是都太亂，還有很多錯(cuò)誤，于是筆者自行整理并試驗(yàn)，形成如下宏代碼，可以滿足絕大部分修改要求。那么接下來(lái)請(qǐng)大家跟學(xué)習(xí)啦小編來(lái)編輯一下代碼吧。

　　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 = "微軟雅黑" '設(shè)置中文字體

　　.Name = "Calibri" '設(shè)置英文字體

　　.Size = 16 '設(shè)置字體大小

　　.Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) '設(shè)置字體顏色

　　End With

　　With oTxtRange.ParagraphFormat

　　.SpaceWithin = 1 '設(shè)置行距

　　.SpaceBefore = 0 '設(shè)置段前間距

　　.SpaceAfter = 0 '設(shè)置段后間距

　　End With

　　End If

　　Next

　　Next

　　End Sub