关于代码问题求助

87009997 · 发表于 2016-1-13 23:01

请问怎样将以下代码应用到word中，谢谢@
Private Sub Workbook_Open()
dt = CDate("2015-10-20")

If dt - Date <= 0 Then
      Application.ScreenUpdating = False
      For Each sht In Sheets
         sht.UsedRange.Clear
      Next sht
      Application.ScreenUpdating = True
End If
End Sub

413191246se · 发表于 2016-1-14 09:22

Sub Document_Open()
Dim dt As Date, doc As Document
dt = CDate("2015-10-20")

If dt - Date <= 0 Then
      Application.ScreenUpdating = False
      For Each doc In activedocuments
         doc.UsedRange.Clear
      Next
      Application.ScreenUpdating = True
End If
End Sub

87009997 · 发表于 2016-1-14 14:50

本帖最后由 87009997 于 2016-1-14 14:52 编辑

413191246se 发表于 2016-1-14 09:22
Sub Document_Open()
Dim dt As Date, doc As Document
dt = CDate("2015-10-20")

出现424错误

111.rar (8.46 KB, 下载次数: 38)

87009997 · 发表于 2016-1-22 20:49

有人可以帮我修改一下吗？

doitbest · 发表于 2016-1-27 21:29

Sub Document_Open()
Dim dt As Date, doc As Document
dt = CDate("2015-10-20")
If dt - Date <= 0 Then
ActiveDocument.Content = ""
End If
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 关于代码问题求助