2

我想选择 Powerpoint 文本框（2010 版）中具有特定定义样式的所有字符（例如，所有粗体字符）。手动，只需在选择时按住控制键，即可在单个文本框中创建不连续的文本选择。使用VBA，到目前为止我失败了。这是我非常简单的方法：

 Dim c As TextRange
 For Each c In ActiveWindow.Selection.ShapeRange(1).TextFrame.TextRange.Characters
  If c.Font.Bold Then c.Select
 Next c

虽然这一切在逐步完成时效果很好，但 c.Select 将始终“取消选择”之前选择的内容，并且没有扩展选择的选项（与形状选择不同）。我最终只选择了最后一个粗体字符。

选择本身就是我想要的最终结果，让用户可以选择进一步修改字体等。

有没有人有建议（或者这根本不能通过 VBA 访问？）

非常感谢

4

0 回答 0