如何运用VBA将整个演示文稿中的指定词语批量设置为红色呢？

作者：绿色风分类：时间：2022-08-17 浏览：147

楼主
0Mouse

Q：如何运用VBA将整个演示文稿中的指定词语批量设置为红色呢？
问题示例：如何将整个PPT中的所有“组织”一词全部修改成红色呢？
设置前：

设置后：

A：打开PPT文档后，按<Alt+F11>组合键，依次单击“插入”-“模块”，在显示的空白窗格内粘贴以下代码，按<F5>键，完毕。

Sub 运用VBA将整个演示文稿中的指定词语批量设置为红色()
'声明变量
Dim Sld As Slide
Dim Shp As Shape
Dim txtRng, foundText
'循环活动演示文稿中的每一张幻灯片
For Each Sld In Application.ActivePresentation.Slides
'循环每一张幻灯片中的每一个Shape对象
For Each Shp In Sld.Shapes
If Shp.HasTextFrame Then '如果存在文本框架
'令txtRng对象指代文本框架中的文本区域
Set txtRng = Shp.TextFrame.TextRange
'在指代文本区域内查找“组织”一词，并将找到的区域赋值给foundText变量
Set foundText = txtRng.Find("组织")
'不断查找处理直至foundText变量为空
Do While Not (foundText Is Nothing)
With foundText
.Font.Color = vbRed '将找到的内容设置为红色
'从找到文本的下一个字符继续查找“组织”一词
Set foundText = txtRng.Find("组织", .Start + .Length - 1)
End With
Loop
End If
Next Shp
Next Sld
End Sub

附件：

运用VBA将整个演示文稿中的指定词语批量设置为红色.rar

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表