Extraer todo el texto de un archivo de PowerPoint en VBA

Tengo un gran conjunto de archivos de PowerPoint de los que quiero extraer todo el texto y agruparlo todo en un gran archivo de texto. Cada archivo fuente (PPT) tiene varias páginas (diapositivas). No me importa el formato, solo las palabras.

Podría hacer esto manualmente con un archivo simplemente ^ A ^ C en PPT, seguido de ^ V en el bloc de notas; luego avance página en el PPT y repita para cada diapositiva en el powerpoint. (Lástima que no pueda hacer un ^ A que agarre TODO ... entonces podría usar sendkey para copiar / pegar)

Pero hay muchos cientos de estos PPT con diferentes números de diapositivas.

Parece que esto sería algo común que querría hacer, pero no puedo encontrar un ejemplo en ningún lado.

¿Alguien tiene un código de muestra para hacer esto?

Respuestas a la pregunta(2)

Su respuesta a la pregunta