在所有幻灯片中更改文本表颜色的代码

table {
  color: red;
}

var table = document.getElementsByTagName("table")[0];
table.style.color = "blue";

Sub ChangeTableTextColor()
    Dim slide As Slide
    Dim shape As Shape
    
    Set slide = ActivePresentation.Slides(1) '假设要更改的文本表在第一张幻灯片上
    For Each shape In slide.Shapes
        If shape.HasTable Then
            shape.Table.TextFrame.TextRange.Font.Color.RGB = RGB(0, 255, 0) '绿色
        End If
    Next shape
End Sub