word文档中如何查找^2并替换为上标

cuanju

请教大家，如何将word文档中的^2查找到并替换为上标（word vba代码在文件内）。^_^

1. Sub dd2()
   
2.     Rem 将^2(或者^3)改为上标
   
3.     With ActiveDocument.Content.Find
   
4.         .MatchWildcards = True
   
5.         Do While .Execute("^[23]")
   
6.             With .Parent
   
7.                 .Start = .Start + 1
   
8.                 .Font.Superscript = True
   
9.                 .Start = .End
   
10.             End With
    
11.         Loop
    
12.     End With
    
13. End Sub
    
14. 
    

复制代码

zhanglei1371

^变为^^。.............................................