Чтение форматированного текста из PowerPoint программно

Question

Я использую что-то вроде этого, чтобы получить текст из фигуры внутри PowerPoint:

s = ActiveWindow.Selection.SlideRange.Shapes("rec1").TextFrame.TextRange.Text

Однако, если текст имеет жирный, подчеркнутый, измененный размер (и т. Д.) Текст внутри фигуры (имеется в виду только определенные слова или фразы внутри фигуры), свойство .Text преобразует все это в обычный текст.

Я хочу взять стилизованную разметку (возможно, RTF) формы.

Я вижу, что если я скопирую текст (выделение , щелкните правой кнопкой мыши, затем выберите COPY ), а затем PASTE в WordPad, он сохранит все. Тем не менее, я не вижу свойства .RTFText ( или чего-либо подобного ) из TextRange, к которому я могу получить программный доступ.

Кто-нибудь знает, как это сделать программно (я полагаю, через VBA)?

Спасибо -

Answer 1

Я думаю, что единственный поддерживаемый метод - это автоматизировать доступ к буферу обмена: скопируйте VBA и получите текст из буфера обмена самостоятельно. Не элегантно и с заметными для пользователя побочными эффектами, но ...