WORD中的文本框，搜索“替换表.xlsx”的A列替换为B列数据问题

csbixi

各位老师
小弟第一次发帖求助
希望大大们帮忙，感谢万分
我用下面以前这个坛里的大大的按表替换宏，可以将WORD里的数据对应替换表A列，替换为B列数据，
但是WORD文本框内的数据不会替换，如何修改，使他可以操作？最好保持文本框属性，不然格式都变了。

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:\替换表.xlsx") '假如在D盘根目录
ex.Visible = True '设置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 '将word中含有的A列内容替换为B列内容
Next
End With
boo.Close
ex.Quit
Set boo = Nothing
Set ex = Nothing
End Sub

附件已经添加

蓝桥玄霜

把文本框改为普通字符串即可，为什么一定要用文本框？