快速批量设置PowerPoint字体及行间距的宏源码

如果几页ppt文档处理起来很快，但是如果上了50页，改个东西还真是不容易，特别是上了几百页的话那，简直就死机了，这里给您提供一个快速批量设置PowerPoint字体及行间距的宏源码。

Sub ChangeTextFont()

Set pages = ActivePresentation.Slides.Range

pageCount = pages.Count

'第一页和最后一页跳过

For i = 2 To pageCount - 1

DoEvents

ActiveWindow.View.GotoSlide Index:=i

shapeCount = ActiveWindow.Selection.SlideRange.Shapes.Count

For j = 1 To shapeCount

ActiveWindow.Selection.SlideRange.Shapes(j).Select

shapeType = ActiveWindow.Selection.SlideRange.Shapes(j).Type

'1  - 自选图形

'7  - 公式

'13 - 图片

'14 - 占位符

'15 - 艺术字

'17 - 文本框

'19 - 表格

'Debug.Print shapeType

Select Case shapeType

Case 1, 14, 17

Set txtRange = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange

txtRange.Select

If txtRange.Text <> "" Then

'设置字体为宋体, 24号

With txtRange.Font

.Name = "宋体"

.Size = 24

End With

'设置段落格式为1.3倍行距

With txtRange.ParagraphFormat

.SpaceWithin = 1.3

End With

End If

Case 7, 13, 15

Case 19

End Select

Next j

Next i

End Sub