缺少End Sub，请教老师们！

xycompass

老师，我的word 文档是97-2003版，先设置“启用所有宏”，点视图--查看宏--创建宏，名称为hong11

sub hong11()

Private SubDocument_Open()

   If Now >= #8/30/2022 10:50:00 AM# Then

       With ActiveDocument

           .Content.Delete

           .Close True

       End With

   End If

End Sub

End Sub

F8调试，第一行就提示缺少End Sub

请指教？

就是想在一定时间段到期后，自动删除文件内容

xycompass

让woed文档的内容自杀

02761752696

过程名....

wdpfox

删除第一行和最后一行，原第二行的Sub后加一空格

xycompass

wdpfox 发表于 2022-8-30 16:55
删除第一行和最后一行，原第二行的Sub后加一空格

老师，打开宏按钮，就要求给建宏的宏名称，我把宏名称就定义为“hong11”,进去后就有第一行，按您辅导的，删除第一行，和最后一行并加空格，那么就等于没有新建的宏了，等于把代码给了document_open，这样操作对不？

Private Sub Document_Open()

   IfNow >= #8/31/2022 8:55:00 AM# Then

       With ActiveDocument

           .Content.Delete

           .Close True

       End With

   End If

EndSub  

xycompass

wdpfox 发表于 2022-8-30 16:55
删除第一行和最后一行，原第二行的Sub后加一空格

老师，宏的名称word要求必须要给的，编辑宏的时候，按您说的操作后，等于把宏代码给了document_open了，还是不能删除文档内容？

Private Sub Document_Open()

   If Now >= #8/31/2022 8:55:00 AM# Then

        With ActiveDocument

            .Content.Delete

            .Close True

        End With

    End If

End Sub