ppt转换成word-只要1分钟，就可以将100页PPT转换为Word文档

第一步：打开PPT中VBA界面并输入代码

首先按Alt+F11打开相应的VBA界面，这时选择选项卡中的插入——模块打开相应的界面，如下图所示：

然后选择工具选项卡下的引用，如下图所示：

之后我们在相应的界面中找到类型为“Microsoft Word 16.0 ObjectLibrary”，点击确定。

注意：如果是Office2013版的就找到13即可。

最后在模块中输入以下代码并按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 = TrueEnd Sub

下面看下具体操作：

第二步：清除文本格式

运行代码之后，文本就会本提取出来，但是比较乱，有很多的空行，这时利用Ctrl+H打开查找和替换对话框，之后在查找中^p^p，在替换中输入^p，如果空行比较多，多替换几次即可。

具体操作如下：