VBA如何批量更改PPT里面含有动画效果的内容的颜色?

图一的“123”“456”是带有动画效果的，且字体、加粗、斜体等效果都和原文是一模一样的。

现在如何把带有动画效果的N多个内容，例如“123”“456”……批量更换颜色，且原文未有动画效果的内容保持不变，变为图二，比如换为红色？