宏错误,提示要求对象

zhangzumiao 2011-03-30 05:31:25
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
...全文
151 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
ACMAIN_CHM 2011-03-30
  • 打赏
  • 举报
回复
哪一句报错?

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

6,216

社区成员

发帖
与我相关
我的任务
社区描述
Microsoft Office应用
社区管理员
  • Microsoft Office应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧