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