VBA Word - Exportando o conteúdo de um .DOC para um Slide .PPT

Termo de Responsabilidade

Isso é que chamo uma excelente oportunidade de economizar tempo. Exporte o conteúdo do seu documento MS Word para slides do MS Powerpoint.


A ação abaixo ocorrerá basicamente num único passo:

Copie este código num módulo do documento MS Word.

Abra o documento com o conteúdo que deseja exportar e execute o código.

Sub ExportEmbeddedSlidesAsPresentation()
Dim i As Integer
Dim nPresentation As Object
Dim nDocument As Document
Set nDocument = ActiveDocument
For i = 1 To nDocument.InlineShapes.Count
If nDocument.InlineShapes(i).Type = wdInlineShapeEmbeddedOLEObject Then
If nDocument.InlineShapes(i).OLEFormat.ProgID = "PowerPoint.Slide.8" Then
nDocument.InlineShapes(i).OLEFormat.DoVerb 2
Set nPresentation = CreateObject("PowerPoint.Application")
Call nPresentation.presentations(nPresentation.presentations.Count) _ .SaveCopyAs("C:\tmp\InAnyPlaceSlide" & i & ".ppt")
nPresentation.presentations (nPresentation.presentations.Count).Close End If
End If
Next i
 nPresentation.Quit
 Set nPresentation = Nothing
 End Sub

 

Tags: VBA, Word, Powerpoint, export, slide