宏异常，提示要求对象

宏错误，提示要求对象
VBA代码如下：在thisdocument可以运行 在模块newmcaros下不能运行。求高手解答
Sub 宏1()
'
' 宏1 宏
'
'
Dim TextBox1

With ActiveDocument

CustomDocumentProperties.Item("WENJIAN_NAME") = TextBox1.Text
CustomDocumentProperties.Item("DAIHAO") = TextBox2.Text
CustomDocumentProperties.Item("DANGAN_ID") = TextBox3.Text
CustomDocumentProperties.Item("DESCRIPTION") = TextBox1.Text + TextBox3.Text
CustomDocumentProperties.Item("XMMC_CPXH") = TextBox4.Text
'CustomDocumentProperties.Item("biaoshen") = TextBox6.Text
'CustomDocumentProperties.Item("pizhun") = TextBox7.Text

End With
End Sub


Private Sub TextBox1_Change()

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub TextBox3_Change()

End Sub

Private Sub TextBox4_Change()

End Sub


------解决方案--------------------------------------------------------
哪一句报错？

QQ群 48866293 OFFICE应用挖掘 
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》