✔ Programação GLOBAL®: VBA Powerpoint - Exportando os Títulos dos Slides e seus respectivos Números das páginas - Export Slide Number and Title Text to a text file

| Blog Office VBA | Blog Excel | Blog Access |

Imagine poder, no meio da apresentação, digitar o número do Slide para o qual deseja saltar e o MS Powerpoint salta para este slide cujo o número foi digitado. Explêndido!

Apenas precisará saber qual é o número do slide onde está a citação que deseja fazer. Quem se lembra onde está? Ninguém?

Por isso, talvez queira executar esse código pouco antes de efetuar a apresentação. Ele coleta o título dos Slides, bem como os seus respectivos números e os salva em um arquivo que você possa imprimir.

Agora, quando alguém começar a perguntar sobre determinado tópico da sua apresentação poderá consultar rapidamente a sua lista e ir direto para o slide correto.

Sub GatherTitles()
On Error GoTo ErrorHandlerDim oSlide As SlideDim strTitles As StringDim strFilename As StringDim intFileNum As IntegerDim PathSep as String If ActivePresentation.Path = "" Then MsgBox "Please save the presentation then try again" Exit SubEnd If#If Mac Then PathSep = ":"#Else PathSep = "\"#End IfOn Error Resume Next ' in case there's no title placeholder on the slideFor Each oSlide In ActiveWindow.Presentation.Slides strTitles = strTitles _ & "Slide: " _ & CStr(oSlide.SlideIndex) & vbCrLf _ & oSlide.Shapes.Title.TextFrame.TextRange.Text _ & vbCrLf & vbCrLfNext oSlideOn Error GoTo ErrorHandlerintFileNum = FreeFile ' PC-Centricity Alert!' This assumes that the file has a .PPT extension and strips it off to make the text file name.strFilename = ActivePresentation.Path _ & PathSep _ & Mid$(ActivePresentation.Name, 1, Len(ActivePresentation.Name) - 4) _ & "_Titles.TXT"Open strFilename For Output As intFileNumPrint #intFileNum, strTitlesNormalExit:Close intFileNumExit SubErrorHandler:MsgBox Err.DescriptionResume NormalExit
End Sub