Extraindo todo o texto de um arquivo do powerpoint no VBA

Eu tenho um conjunto enorme de arquivos do powerpoint dos quais desejo extrair todo o texto e agrupar tudo em um grande arquivo de texto. Cada arquivo de origem (PPT) possui várias páginas (slides). Eu não me importo com a formatação - apenas as palavras.

Eu poderia fazer isso manualmente com um arquivo apenas ^ A ^ C no PPT, seguido de ^ V no bloco de notas; depois pagine no PPT e repita para cada slide no powerpoint. (Pena que eu não posso simplesmente fazer um ^ A que agarra TUDO ... então eu poderia usar o sendkey para copiar / colar)

Mas existem muitas centenas desses PPTs com diferentes números de slides.

Parece que isso seria algo comum, mas não consigo encontrar um exemplo em lugar nenhum.

Alguém tem código de exemplo para fazer isso?

questionAnswers(2)

yourAnswerToTheQuestion