使用VBA实现Word指定时间自动清除所有内容

1、打开需要处理的Word文件，如图所示。

2、点击组合键“ALT+F11”调用并打开VBA程序界面，如图所示。

3、点击左侧“工程栏”中的“This Document”

4、点击上侧下拉菜单中的“Document”

5、点击上侧下拉菜单中的“Open”

6、在Private和End Sub之间，录入程序如下

Dim a, b  As String

a = Format(Date, "yyyy年m月d日")   '当前年月日

If a > "2017年9月10日" Then

Selection.WholeStory

Selection.Delete Unit:=wdCharacter, Count:=1

End If

7、点击运行，程序无编译错误，即可关闭VBA窗口。

8、将WORD文件另存为"启用宏的word"，关闭Word 。

9、打开Word，测试当2017/9/13大于2017/9/10，Word中所有内容成功的自动清除。