PPT批量选择文本框

在PPT中批量选择文本框的方法是使用VBA宏来实现。你可以按照以下步骤进行操作：

1. 打开PPT，按下ALT+F11打开VBA编辑器。
2. 在左侧的工程视图中，右键点击并选择插入->模块，添加一个新的模块。
3. 在顶部的“工具”菜单中选择引用，找到并勾选“Microsoft Word X.0 Object Library”（其中X与你的OFFICE版本有关），然后点击确定。
4. 将下面的代码粘贴到新建的模块中：

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

5. 如果你只想导出特定页码范围内的文本框内容，可以修改以下代码中的页码范围：

For i = 1 To num_slides

将其修改为你想要的范围，例如从第4页到第8页：

For i = 4 To 8

6. 点击运行按钮（或按下F5键），代码将会执行并打开一个新的Word文档，其中包含了选定范围内的所有文本框内容。
7. 在Word文档中，你可以选择另存为其他格式或进行其他操作。

请注意，这个方法需要在PPT中启用宏功能，并且需要一定的VBA编程知识。如果你对VBA不熟悉，建议先备份PPT文件并谨慎操作。
#### 引用[.reference_title]
- *1* [[实用文档]将PPT中所有文本框里的文字提取出来](https://blog.csdn.net/qq_36254699/article/details/90705501)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^koosearch_v1,239^v3^insert_chatgpt"}} ] [.reference_item]
- *2* [批量选择ppt多文本框内容（VB代码）](https://blog.csdn.net/qq_40893824/article/details/123029669)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^koosearch_v1,239^v3^insert_chatgpt"}} ] [.reference_item]
[ .reference_list ]