Powerpoint テキスト ボックス (バージョン 2010) で、特定のスタイルが定義されているすべての文字 (すべての太字など) を選択したいと考えています。手動では、Ctrl キーを押しながら選択するだけで、1 つのテキスト ボックス内で不連続なテキスト選択を作成できます。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 経由ではまったくアクセスできませんか?)
どうもありがとう