求助：关于WORD调用EXCEL以字体形式来替换的问题！

river1010

今天遇到一个问题。我本打算在EXCEL里用A列中的某些“音标”替换为B列某些字符，结果由于很多音标字符是改过的（如字母A编码，用了相应字体却显示的是ɑ），就是音标字体的编码占用了现有标准的编码位置。结果替换不正确。
于是想有个办法：
A、以字体的形式来调用EXCEL表里的A列相应的字体字符替换成B列字符？
B、把EXCEL编码相应的A列字体字符转换成字符编码来替换B列字符处理？

下面这段代码是前辈们写的，但替换达不到。望各位大神们指教。谢谢！

Sub 按表替换()
'首先引用ms excel
'运行前关闭所有excel程序
Dim ex As Excel.Application, boo As Excel.Workbook, shee As Worksheet, i As Integer
Set ex = New Excel.Application
Set boo = ex.Workbooks.Open("D:\替换表.xls")   '放在D盘
    ex.Visible = False    '设置EXCEL对象可见（或不可见）
    Set shee = boo.Worksheets(1)    '设置活动工作表
With shee
For i = 1 To .Range("b65536").End(xlUp).Row
ActiveDocument.Content.Find.Execute findtext:=.Range("a" & i), replacewith:=.Range("b" & i), Replace:=wdReplaceAll, Forward:=True '将excelA列替换为B列内容
Next
End With
boo.Close
ex.Quit
Set boo = Nothing
Set ex = Nothing
End Sub