在修改PPT时,想修改一下字体格式,试了一下,Office没发现有直接修改的功能,如果手工修改,我的天!三百多页,卡得要死,只好用VBA宏实现了。代码如下:
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
另外,推荐可以使用 PPT统一字体工具V3.00 http://blog.sina.com.cn/u/2135968783