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中所有内容成功的自动清除。
