Dim sld As Slide
Dim shp As Shape
Dim txtRng As TextRange
Dim i As Integer
' 遍历每一个幻灯片
For Each sld In ActivePresentation.Slides
' 遍历幻灯片中的每一个对象
For Each shp In sld.Shapes
' 检查对象是否含有文本
If shp.HasTextFrame Then
If shp.TextFrame.HasText Then
Set txtRng = shp.TextFrame.TextRange
' 遍历文本中的每一个字符
For i = 1 To txtRng.Length
' 检查字符颜色是否为红色
If txtRng.Characters(i, 1).Font.Color.RGB = RGB(255, 0, 0) Then
' 删除红色文本
txtRng.Characters(i, 1).Text = ""
End If
Next i
End If
End If
Next shp
Next sld
End Sub
关闭VBA编辑器。
在PowerPoint中，按 Alt + F8，选择DeleteRedText宏，然后点击“运行”。
测试
测试
估计是作者贴错了链接，可以私信作者更新链接哈
新手礼包：https://www.pptx.cn/49047.html
试试这个思路：
要在 PowerPoint 中实现您所描述的双屏扩展模式，并且在演讲者模式下可以操作按钮，而观众屏幕只显示抽题结果，您可以通过以下步骤来设置：
1. **设置双屏扩展模式**：
- 确保您的电脑已经连接到第二个显示器或投影仪。
- 右击桌面，选择“显示设置”。
- 在显示设置中，选择“扩展这些显示器”，确保两个屏幕都被识别并正确配置。
2. **配置 PowerPoint 演示**：
- 打开您的 PowerPoint 演示文稿。
- 在“幻灯片放映”选项卡下，选择“设置幻灯片放映”。
- 在弹出的窗口中，选择“演讲者模式”，确保 PowerPoint 会在您的主屏幕上显示演讲者视图，而在第二个屏幕上显示给观众的幻灯片。
3. **添加并配置 VBA 按钮**：
- 在 PowerPoint 中添加您需要的按钮，并为其编写 VBA 代码。
- 在 VBA 代码中，确保按钮的操作只影响观众屏幕上显示的内容。例如，如果按钮用于随机抽题，那么它应该只更改观众屏幕上显示的幻灯片内容。
4. **测试和调整**：
- 在实际环境中测试您的设置，确保在演讲者模式下按钮工作正常，观众屏幕上只显示相关的幻灯片内容，而不显示按钮。
- 根据需要调整按钮的位置和功能，以确保在演讲中易于操作。
注意：实现这样的设置需要一定的 PowerPoint 和 VBA 知识。如果您在设置过程中遇到困难，可能需要查阅相关的 PowerPoint 帮助文档或寻求专业的技术支持。
https://www.pptx.cn/?s=%E5%B0%8F%E7%B1%B3&type=post
关于你的主题“爱我大国防，青春报祖国”，我给你一些建议：
开场: 用一些引人注目的图片或者短视频，如国旗飘扬，或者青春活力的画面，来吸引听众的注意力。
内容结构:
定义：首先定义“大国防”和“青春报祖国”的意义。
历史：简短回顾中国的国防历史和重要时刻。
现状：展示现在的国防科技、装备和人才培养。
青春的角色：强调青年在国防和国家建设中的重要性，可以用一些实例说明。
结尾: 提出对其他青年的号召，强调每个人都可以为国家做出贡献。
希望以上建议能帮助到你！加油，相信你会做得很好！
微软MSDN原版Windows系统镜像和Office下载地址集锦：www.yishimei.cn/network/290.html
请在进行一切操作前做好文件备份！
要在PowerPoint中删除所有红色的文本框内容（即你提到的答案），你可以考虑以下的步骤：
打开你的PowerPoint演示文稿。
按 Ctrl + H 打开“查找和替换”对话框。
在“查找内容”框中，不要输入任何内容。但点击“查找”旁边的小箭头，然后选择“格式” → “字体”。
在弹出的“字体”对话框中，选择红色作为字体颜色，然后点击“确定”。
现在回到“查找和替换”对话框，点击“查找下一个”。这会查找到第一个红色的文本。
手动删除这段文本。
重复步骤5和6，直到你删除了所有的红色文本。
不过，这个方法需要你手动删除每一个红色的答案。如果你的PPT有很多幻灯片和很多答案，这个过程可能会有些繁琐。如果你熟悉VBA，你还可以编写一个VBA宏来自动完成这个任务。
使用VBA来删除PowerPoint中所有红色的文本框内容，你可以按照以下步骤操作：
打开你的PowerPoint文件。
按 Alt + F11 打开VBA编辑器。
在VBA编辑器中，点击“插入” > “模块”来插入一个新的VBA模块。
在新模块的代码窗口中，复制并粘贴以下的VBA代码：
Sub DeleteRedText()
Dim sld As Slide
Dim shp As Shape
Dim txtRng As TextRange
Dim i As Integer
' 遍历每一个幻灯片
For Each sld In ActivePresentation.Slides
' 遍历幻灯片中的每一个对象
For Each shp In sld.Shapes
' 检查对象是否含有文本
If shp.HasTextFrame Then
If shp.TextFrame.HasText Then
Set txtRng = shp.TextFrame.TextRange
' 遍历文本中的每一个字符
For i = 1 To txtRng.Length
' 检查字符颜色是否为红色
If txtRng.Characters(i, 1).Font.Color.RGB = RGB(255, 0, 0) Then
' 删除红色文本
txtRng.Characters(i, 1).Text = ""
End If
Next i
End If
End If
Next shp
Next sld
End Sub
关闭VBA编辑器。
在PowerPoint中，按 Alt + F8，选择DeleteRedText宏，然后点击“运行”。
此时，该宏会遍历你的PPT中的每一张幻灯片，查找红色的文本，并删除它。
请注意：在运行任何宏之前，建议你先备份原始文件，以防万一出现不希望的结果。
一直在摸鱼，从未停止···