Access2003自动替换Word文件中的部分内容问题

题目：当我想操纵Access2003经过过程VB打开一个Word文件的时辰，我希望可以主动替换Word文件中的部分内容，当我利用 MyDocument.application.selection.find编制操纵的时辰，成果发现只可以替换文档正文的内容，而没法替换文本框内的内容。（文本框在画图画布内和不在画图画布内两种环境均都试过），特请问该若何操纵才可以达到操纵VB说话查找替换Word文件文本框内的内容。

解答：
遍历勾当文档文本框内容:
dim s as shape
for each s in activedocument.shapes
if s.type=msotextbox then msgbox(s.textframe.textrange.text)
next