将PPT中所有文字提取出来(包括文本框文字)

 时间:2026-02-14 00:51:55

1、打开PPT,按ALT+F11打开VBA编辑器,(部分电脑FN+ALT+F11)在左面的工程视图里点击右键,选择插入->模块,添加一个模块,名字都不用改。

将PPT中所有文字提取出来(包括文本框文字)

2、然后点击顶部的“工具”菜单,选择引用,找“Microsoft Word X.0 Object Library”(其中X与你的OFFICE版本有关),钩上,点确定

将PPT中所有文字提取出来(包括文本框文字)

3、将下列代码贴到刚建立的模块里,按F5(部分电脑FN+F5)即可

Sub Main()

    On Error Resume Next

    Dim temp As New Word.Document, tmpShape As Shape, tmpSlide As Slide

    For Each tmpSlide In ActivePresentation.Slides

        For Each tmpShape In tmpSlide.Shapes

            temp.Range().Text = temp.Range() + tmpShape.TextFrame.TextRange.Text

        Next tmpShape

    Next tmpSlide

    temp.Application.Visible = True

End Sub

将PPT中所有文字提取出来(包括文本框文字)

4、复制以上代码后,f5(部分电脑FN+F5),就会打开一个word,另存为即可。

  • 怎么提取PPT中的文字
  • 怎么提取ppt中的文字?
  • 如何批量提取PPT里面的文字?
  • ppt提取全部文字
  • 月亮挂在天上改为比喻句怎么写
  • 热门搜索
    三爱手抄报图片 手抄报字体设计 关于节日的英语手抄报 关于春节的手抄报大全 大自然的启示手抄报 四年级上册手抄报 重阳节手抄报内容30字 我心中的祖国手抄报 二年级绿色环保手抄报 关于祖国在我心中的手抄报