关于宏查找替换字体的问题

lrsh1985

请教一段宏命令，想将全文所有黑体替换为加粗的字体，如何用语言实现？宏录制的办法尝试过不行

vbee

1. Sub 字体加粗()
   
2. ''''VBEE 2022/11/07
   
3. With ActiveDocument.Content.Find
   
4. .ClearFormatting
   
5. .Font.Name = "微软雅黑 Light"
   
6.     With .Replacement
   
7.     .ClearFormatting
   
8.     .Font.Bold = True
   
9.     End With
   
10. .Execute FindText:="", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
    
11. End With
    
12. 
    
13. End Sub
    
14. 
    
15. Sub 去粗()
    
16. 
    
17. With ActiveDocument.Content.Find
    
18. .ClearFormatting
    
19. .Font.Bold = True
    
20.     With .Replacement
    
21.     .ClearFormatting
    
22.     .Font.Bold = False
    
23.     End With
    
24. .Execute FindText:="", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
    
25. End With
    
26. 
    
27. End Sub
    
28. 
    

复制代码

413191246se

1. Sub a1107_BoldFont()
   
2.     With ActiveDocument.Content.Find
   
3.         .ClearFormatting
   
4.         .Font.Name = "黑体"
   
5.         With .Replacement
   
6.             .ClearFormatting
   
7.             .Font.Bold = True
   
8.         End With
   
9.         .Execute FindText:="", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
   
10.     End With
    
11. End Sub

复制代码