Question

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

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

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

我希望抓住形状的程式化标记（也许是RTF）。

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

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

谢谢 -

Answer 1

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