无大纲内容、大纲内容缺失的PPT如何转WORD-word图片导出

由于个别PPT的制作者，在创建PPT的时候删除了PPT默认的“标题+内容”文本框，全部自己定义幻灯片的内容，造成大纲内容空白。

这种情况下，采用传统的发送（或者导出）“讲义”到WORD的方式，就不能把PPT中的文本内容转移到WORD中。这时候，我们需要运行一小段VBA代码，让PPT中的所有文本自动转移到WORD中。

下面的视频演示内容即上述操作过程。

视频中涉及到的代码——

Sub PPTToWord()

On Error Resume Next

Dim docObj As New Word.Document, shapeObj As Shape, slideObj As Slide

For Each slideObj In ActivePresentation.Slides

For Each shapeObj In slideObj.Shapes

docObj.Range().Text = docObj.Range() + shapeObj.TextFrame.TextRange.Text

Next shapeObj

Next slideObj

docObj.Application.Visible = True

End Sub

使用中，直接粘贴到VB运行窗口内即可。