VB怎么向WORD文本框内添加内容

VB如何向WORD文本框内添加内容
我在VB中调用了一个WORD2003文件，WORD文件中有一些空白文本框，我要把数据写入到文本框中并打印，但写入时出现错误：“438 对象不支持该属性或方法”。
代码如下：
  Set wordd = CreateObject("Word.Application")
  wordd.Documents.Add "muoban.doc"
  wordd.Visible = True
  wordd.Activate
  wordd.Shapes(2).TextFrame.TextRange.Text = "My Text" '此语句出错，不能执行

VB6+WORD2003,工程中已引用microsoft office 12.0 object library 和microsoft word 11.0 object library

[解决办法]
2k测试

VB code

 Set wordd = CreateObject("Word.Application")  wordd.Documents.Add "c:\muoban.doc"  wordd.Visible = True  wordd.Activate  wordd.selection.Text = "My Text"
[解决办法]
那个换个方法试试呢  
VB code
  wordd.activedocument.Shapes(1).Select  wordd.selection.Text = "My Text"