如何用VBA先把Word文档中的所有汉字转成Unicode代码，再还原成汉字？

ssq1109

我用GrindEQ将一*.tex格式的文件转成DOCX文档时，西文字符甚至数学公式都能正确转换过来，但发现对汉字和全角字符支持有问题，转成的DOCX文档中原来很多汉字变成了其他汉字（有的还是繁体字、日文汉字或偏旁部首），为此，我想先将原*.tex文件读入Word，运行VBA后，将所有汉字转成加半角{}的标记符的Unicode代码，如：

中→{4E2D}
国→{56FD}
℃→{2103}
仅针对汉字和全角字符，半角字符一律不转。


这样处理后，因为汉字和全角字符已变成半角字符，肯定就不会有问题了，再用VBA将所得的DOCX文档中此类字符串逆转成汉字和全角字符，如：

{4E2D}→中
{56FD}→国
{2103}→℃



怎样用2段VBA代码实现？

batmanbbs

忘考虑负值了，修正一下

wdpfox

不明觉厉           

batmanbbs

1. Sub 测试()
   
2. 
   
3.     'Call 转换编码(True) ' True：汉字转Unicode；False：Unicode转汉字
   
4.     Call 转换编码(False) ' True：汉字转Unicode；False：Unicode转汉字
   
5. 
   
6. End Sub
   
7. 
   
8. Private Sub 转换编码(ChangeType As Boolean)
   
9. 
   
10.     Selection.HomeKey unit:=wdStory
    
11. 
    
12.     With Selection.Find
    
13.         .ClearFormatting
    
14.         .Replacement.ClearFormatting
    
15. 
    
16.         .Text = IIf(ChangeType, "[!^1-^127]", "\{[\+\-][0-9]{4,5}\}")
    
17.         .Forward = True
    
18.         .Wrap = wdFindContinue
    
19.         .MatchWildcards = True
    
20.         .Format = False
    
21.         
    
22.         Do While .Execute
    
23.             With Selection.Range
    
24.                 If ChangeType Then
    
25.                     .Text = "{" & IIf(AscW(.Text) > 0, "+", "") & AscW(.Text) & "}"
    
26.                 Else
    
27.                     .Text = ChrW(Val(Mid(.Text, 2, Len(.Text) - 2)))
    
28.                 End If
    
29.             End With
    
30.         Loop
    
31. 
    
32.         .ClearFormatting
    
33.         .Replacement.ClearFormatting
    
34.     End With
    
35. 
    
36. End Sub

复制代码

ssq1109

谢谢batmanbbs！上面的代码是部分可达目的，但遇到全角标点会出错。
不过将.Text = IIf(ChangeType, "[!^1-^127]", "\{[\+\-][0-9]{4,5}\}")修改一下字符数范围即可，即为：
.Text = IIf(ChangeType, "[!^1-^127]", "\{[\+\-][0-9]{3,5}\}")