以编程方式从 PowerPoint 中读取格式化文本

Question

我使用类似的方法从 PowerPoint 中的形状中获取文本：

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

但是，如果文本在形状中包含粗体、下划线、调整大小（等）文本（仅表示形状中的某些单词或短语），.Text 属性会将其全部转换为纯文本。

我正在寻找形状的风格化标记（可能是 RTF）。

我发现如果我复制文本（突出显示，右键单击，然后选择复制），然后将其粘贴到写字板中，它会保留所有内容。但是，我没有看到可以以编程方式访问的TextRange 的.RTFText 属性（或任何类似的）。

有谁知道如何以编程方式执行此操作（我想是通过 VBA）？

谢谢-

Answer 1

我认为唯一受支持的方法是自动化剪贴板访问：执行 VBA 复制并自己从剪贴板获取文本。不优雅，并且对用户来说有明显的副作用，但是......