下面的程序错那了?(关于VBA的)

[whabbit]

Dim MyWord As Object
Dim NewDoc As Object
Set MyWord = CreateObject("Word.Application")
MyWord.Visible = True
MyWord.Caption = "符号插入"
Set NewDoc = MyWord.Documents.Add
NewDoc.Paragraphs(1).Range.Collapse Direction:=wdCollapseStart
ActiveDocument.Fields.Add Range:=NewDoc.Paragraphs(1).Range, _
Type:=wdFieldListNum, Text:="\s 3"

在VB中运行错误，提示说倒数第二行 object required
这是怎么了？怎么改啊！！！

[pigpag]

ActiveDocument.Fields.Add