PPT文本框内容快速录入EXCEL

我做好了PPT，想把文本框中的内容复制到EXCEL里，如何去做？

前提是PPT中的文本是手动输入的，我想把这些内容放到EXCEL中，总不能再手动敲一遍吧，当然复制也是一个好办法，但是如果文本框太多，复制也是停麻烦的。

下面就教大家一个VBA的处理方法。

首先选中PPT中的所有文本框，可以用鼠标框选，也可以按住SHIFT或CTRL键进行多选，选中后，按CTRL+C进行复制，如下图所示：

新建一个Excel文件，在任意一个SHEET中，按CTRL+V将文本框粘贴到表中，如下图所示：

按ALT+F11打开VBA编辑窗口，点击新建的工作薄，插入模块

在窗口中输入下列代码：

Sub TEXT()

On Error Resume Next

For I = 1 To ActiveSheet.Shapes.Count

ActiveSheet.Shapes(I).Select

Cells(I, 10) = Selection.TEXT

Next

End Sub

如下图所示：

点击运行，结果如下：所有文本框中的内容均被复制到J列单元格里。

注解：

Sub TEXT()：程序名

On Error Resume Next：遇到错误，继续执行下一条，防止其它图形不是文本框，出现错误

For I = 1 To ActiveSheet.Shapes.Count：对当前工作表的所有图形进行循环

ActiveSheet.Shapes(I).Select：选中第I个图形

Cells(I, 10) = Selection.TEXT：第I行，第10列单元格等于当前文本框的内容

Next：下一个，和FOR 成对出现，表示循环

End Sub：程序结束