怎样在100页的WORD文档中使每一页的日期逐页递增？

Question

大佬们好，
事情起因是，我们工作每天都会使用一个WORD 打出来的事项交接表，
文档的标题是当天的日期。比如2019/01/01
于是我就想一次打出来很多。比如打完半年的。
这样要求，每一页的日期标题会自己递增。
（总不能一个一个手动改吧(ᵒ̤̑ ₀̑ ᵒ̤̑) OMG!）

觉得是可以实现的，但是找过很多VBA 什么的，想破头又不能做出来
故来此求

Answer 1

如果问题得到解决，请点下我回答左上角的采纳和向上的箭头，谢谢

Sub Macro1()
'
' Macro1 Macro
'
'
    ActiveDocument.Select
    Selection.Delete
    For i = 0 To 99
        Selection.TypeText Text:=Format((Now + i), "yyyy年MM月dd日")
        Selection.InsertBreak Type:=wdPageBreak
    Next
End Sub