Извлечение всего текста из файла PowerPoint в VBA

У меня есть огромный набор файлов PowerPoint, из которых я хочу извлечь весь текст и просто объединить его в один большой текстовый файл. Каждый исходный файл (PPT) состоит из нескольких страниц (слайдов). Меня не волнует форматирование - только слова.

Я мог бы сделать это вручную с файлом, просто нажав ^ A ^ C в PPT, а затем ^ V в блокноте; затем перейдите на страницу вниз в PPT и повторите для каждого слайда в PowerPoint. (Жаль, что я не могу просто сделать ^ A, который захватил бы ВСЕ ... тогда я мог бы использовать sendkey для копирования / вставки)

Но существует много сотен таких PPT с разным количеством слайдов.

Это кажется, что это обычное дело, но я нигде не могу найти пример.

Есть ли у кого-нибудь образец кода для этого?