批量更改某一颜色.docxVIP

批量更改某一颜色 Sub DChangeAllSpecifiedColors() Change all specified Chinese text colors Dim oSld As Slide, oShp As Shape Dim oTbl As Table, oCell As Cell Dim oldColor, newColor As Long Dim lRowCount!, lColumnCount!, lBorderItem! Dim i!, j! Dim x As Long Dim red1, green1, blue1 As String Dim red2, green2,