请老师帮忙如何一次性地将PPt里的字体改成黑色的？急啊

Question

老师好。
我用的是PPT2010版，现在有一个PPt文件，几十页，是蓝底白字的，现在要把它改成白底黑字的。背景颜色可以一次性地改变颜色，我知道如何做。但不知道如何一次性地将文字颜色改变成黑色。问了多人，均无法解决。所以，请老师指导一下，而且很急。请求指导。谢谢。

Answer 1

PPT我不擅长，但我可以用宏帮你一次搞定。同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub test()
Dim i, j As Integer
For i = 1 To ActivePresentation.Slides.Count
For j = 1 To ActivePresentation.Slides(i).Shapes.Count
ActivePresentation.Slides(i).Shapes(j).TextFrame.TextRange.Font.Color = vbBlack
Next
Next
End Sub

在此界面直接按F5运行此宏，完成。

Answer 2

试一下在试图模板里修改文字颜色