幻灯片字体批量加粗

happy131415926

因为上课需要，经常需要把字体改为黑体，加粗，通过网络学习，知道了用宏可批量修改字体和颜色，可无法批量加粗字体。现特请教各位高手帮忙，谢谢！

wudixin96

1. Sub OED01()  '批量修改字体格式、大小和颜色
   
2. Dim oShape As Shape
   
3. Dim oSlide As Slide
   
4. Dim oTxtRange As TextRange
   
5. On Error Resume Next
   
6. For Each oSlide In ActivePresentation.Slides
   
7.    For Each oShape In oSlide.Shapes
   
8.           Set oTxtRange = oShape.TextFrame.TextRange
   
9.           If Not IsNull(oTxtRange) Then
   
10.          With oTxtRange.Font
    
11.              .Name = "黑体"       '改成你需要的字体
    
12.              .Bold = True
    
13.              .Size = 20       '改成你需要的文字大小
    
14.              .Color.RGB =black '改成你想要的文字颜色
    
15.           End With
    
16.           End If
    
17.    Next
    
18.    Next
    
19. End Sub
    

复制代码

happy131415926

操作环境  Windows 7  + Microsoft Office 2003

happy131415926

非常感谢，真的可以， wudixin96，谢谢您