怎么把ppt的字体全选

1.如何一次性更改ppt中的全部字体?

如何一次性更改ppt中的全部字体？起初这个我也不知道，也是在百度上搜索得来的。

非常感谢大家！当然，我也要把这样的好东西共享一下，为大家节约时间！ 先看第一种方法。一般高手都是用这种方法的，我不会用！ 点击ppt中的工具里的宏选项里的宏。

然后输入你要创建的宏名点击创建按钮，在出现的页面中将下面一段代码覆盖掉原先的代码： 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 。

Name = "楷体_GB2312" '改成你需要的字体 。Size = 20 '改成你需要的文字大小 。

Color。RGB = RGB(Red:=255, Green:=0, Blue:=0) '改成你想要的文字颜色 End With End If Next Next End Sub 然后点击保存按钮，关闭窗口，回到ppt编辑页面。

再次点击工具里的宏选项里的宏，选择你刚编辑好的宏，点击运行，这样你ppt中的所有字体都被改变了，想要变成什么样的字体可在代码里修改！ 第二种方法，简单易懂，而且好操作！在ppt上面的工具条中，选择“视图”，然后“普通视图”，然后再幻灯片的左边，会出现一栏。 在这一栏的上面有个选项“大纲/幻灯片”，点击“大纲”，这个时候，你激活其中任意一张幻灯片，全选，然后改到自己想改的格式就可以了。

2.有没有办法全选一张PPT的所有页的文字?

如果同一页幻灯片有几个文本框要同时选中

先用鼠标选第一个，按住键盘『SHIFT』键不放用鼠标选余下的文本框就可以了

还有一个简单办法就是『编辑』——『全选』

但是这个会不止文字所有全部都选定了

如果要选一个PPT文件所有的文字

先另存成单个网页文件

用IE打开

再『编辑』——『全选』『CTRL』+C复制

打开记事本粘贴

绝对OK!

还有不明白的请给我留言

3.在线等

呵呵，只找到一种改变字体的：

格式->；替换字体，然后选你想要的字体。

这种方法只能改变所有ppt的字体，不能改变字号，颜色等。

其它可以查查vba。

获得每张ppt的所有文本框，设置它的字体。

你可以录制一个宏，具体是

ctr+a选中一页中的所有东西，然后改字体。最后结束录制。然后对每一页都做这个宏。

最好是写vba啦。

可以把上面两个结合起来用。

好了。现在搞定了。

你可以写一个宏，内容是这样：

Sub Macro1()

'

' 宏由 heno 记录，日期： 2006-4-29

'

Set mySlides = ActivePresentation.Slides.Range

iCount = mySlides.count

For i = 1 To iCount

DoEvents

ActiveWindow.View.GotoSlide Index:=i

iCunCount = ActiveWindow.Selection.SlideRange.Shapes.count

For j = 1 To iCunCount

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

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

'1--自选图形

'7---公式 、（图表、WORD表格、组织结构图等 OLE）

'17--文本框 19--表格 15--艺术字 14--占位符

'13---图片

' Debug.Print iShapeType

Select Case iShapeType

Case 1, 14, 17

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

tx.Select

If tx.Text <> "" Then

With tx.Font

.Color.RGB = RGB(Red:=255, Green:=0, Blue:=102)

.Name = "Palatino"

End With

End If

Case 7, 13, 15 '图片、公式不处理

Case 19 '表格不处理

End Select

Next j

Next i

End Sub

其中，你只要把

With tx.Font

.Color.RGB = RGB(Red:=255, Green:=0, Blue:=102)

.Name = "Palatino"

End With

里的东西改成你想要的就行了。

具体font属性请参看vb中font的属性。

其中，宏的制作你可以先录制，后修改。

录制： 工具->；宏->；录制，其它就不说了.

呵呵……