PPT 批量加字幕

PPT 批量加字幕

这段时间,我在准备英语课本剧的 PPT,需要批量加字幕,本文就来分享一下方法

  1. 点击文件 - 选项
图片[1]-PPT 批量加字幕-JACK小桔子的小屋
图片[2]-PPT 批量加字幕-JACK小桔子的小屋
  1. 如下图所示,勾选开发工具
图片[3]-PPT 批量加字幕-JACK小桔子的小屋
  1. 切换到开发工具选选项卡,点击VB
图片[4]-PPT 批量加字幕-JACK小桔子的小屋
  1. 如下图所示,添加模块
图片[5]-PPT 批量加字幕-JACK小桔子的小屋
  1. 输入下方代码并修改
Sub AddSubtitles()
    Dim slide As Slide
    Dim textBox As Shape
    Dim text As String
    Dim sentences() As String
    Dim i As Integer
    
    ' 设置你的文本
    text = "这里是你的文本,用逗号分隔。例如:这是第一句,这是第二句。"
    
    ' 根据逗号分割文本
    sentences = Split(text, ",")
    
    ' 初始化计数器
    i = 1
    
    ' 遍历分割后的文本数组
    For Each sentence In sentences
        ' 在当前幻灯片上添加文本框
        Set slide = ActivePresentation.Slides(ActiveWindow.View.Slide.SlideIndex)
        Set textBox = slide.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100 + (i * 50), 500, 50)
        
        ' 设置文本框的文本
        textBox.TextFrame.TextRange.Text = sentence
        
        ' 更新计数器
        i = i + 1
    Next sentence
End Sub
图片[6]-PPT 批量加字幕-JACK小桔子的小屋
图片[7]-PPT 批量加字幕-JACK小桔子的小屋
修改示例
  1. 运行程序即可
图片[8]-PPT 批量加字幕-JACK小桔子的小屋
图片[9]-PPT 批量加字幕-JACK小桔子的小屋
最终效果,自行调整动画、样式
© 版权声明
THE END
喜欢就支持一下吧
点赞3 分享
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片

    暂无评论内容