Leo.U.X
2018-12-26 16:39
采纳率: 33.3%
浏览 1.4k

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

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

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

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 邀请回答

1条回答 默认 最新

  • blownewbee 2018-12-26 17:22
    已采纳

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

    图片说明

    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
    
    
    点赞 评论

相关推荐 更多相似问题