【源码】Access VBA批量替换PPT中的文字的字体颜色

tmtony

需要使用Access用VBA批量替换PPT各幻灯片中形体中的文字的字体颜色，可使用以下代码

1. Sub ReplaceColor()
   
2. Dim shape As shape
   
3. Dim slide As slide
   
4. Dim txt As TextRange
   
5. On Error Resume Next
   
6. 
   
7. '替换背景颜色为白色
   
8. ActivePresentation.SlideMaster.Background.Fill.Solid
   
9. ActivePresentation.SlideMaster.Background.Fill.ForeColor.RGB = RGB(255, 255, 255)
   
10. 
    
11. For Each slide In ActivePresentation.Slides
    
12.    For Each shape In slide.Shapes
    
13.       Set txt = shape.TextFrame.TextRange
    
14.       For Each sentence In txt.Sentences
    
15.         For Each word In sentence.Words
    
16.           '把蓝色的文字替换成灰色
    
17.           If word.Font.color.RGB = RGB(0, 0, 204) Or word.Font.color.RGB = RGB(0, 0, 122) Then
    
18.             With word.Font
    
19.               .color.RGB = RGB(40, 40, 40)
    
20.             End With
    
21.           End If
    
22.         Next
    
23.       Next
    
24.    Next
    
25. Next
    
26. End Sub

复制代码

搜索自网络 秋，怡然若晴。的博文