使用VBA替换发光文本格式时遇到一些问题

Question

对于我的PowerPoint，我的目标是将所有带有发光的文本替换为不同的格式（没有带有特定字体颜色的发光），但是替换每种文本格式的常规方法是使用据我所知，指定的文本不支持发光。

Sub White2Black（）
 昏暗的oSld作为幻灯片
 形状变暗oShp
 暗淡x长久
对于ActivePresentation.Slides中的每个oSld
  对于oSld.Shapes中的每个oShp
   如果是oShp.HasTextFrame然后
      如果是oShp.TextFrame.HasText，那么
使用oShp.TextFrame.TextRange
对于x = .Runs.Count到1步骤-1
如果IsNumeric（.Runs（x））= True和.Runs（x）.Font.Color.RGB = RGB（255，0，0）
然后 .Runs（x）.Font.Glowformat.Radius = 18
.Runs（x）.Font.Glowformat.Color.RGB = RGB（255，240，0）
.Runs（x）.Font.Glowformat.Transparency = 0.6
.Runs（x）.Font.Color.RGB = RGB（255，255，0）
其他
.Runs（x）.Font.Color.RGB = RGB（0，0，0）
万一 下一页x

结尾为
        如果有文字则结束     如果文本框为

，则结束

Next oShp<br>

下一个oSld
结束Sub