替换特殊字符串

YYFran

替换特殊字符串，见附件，急！

413191246se

1. Sub aaab_替换勾选框()
   
2.     With ActiveDocument.Content.Find
   
3.         .ClearFormatting
   
4.         .Text = ChrW(61551)
   
5.         .Forward = True
   
6.         .MatchWildcards = True
   
7.         Do While .Execute
   
8.             With .Parent
   
9.                 .Font.Name = "Wingdings"
   
10.                 .Text = ChrW(61694)
    
11.                 .Font.Color = wdColorRed '红色（本行代码可删除）
    
12.                 .Start = .End
    
13.             End With
    
14.         Loop
    
15.     End With
    
16. End Sub

复制代码