求助高手如何添加日期落款

hmte7ahwxy

我需要在一个动态生成页码的VBA代码中，添加日期落款，落款在生成的页面的上面或者下面均可，但是由于本人没有学过VBA，东西又要的急，所以求助各位高手大大们解决，万分感谢，在线等回复啊。
已有的页面生成代码如下：

Sub PrintDateandNum()
For i = 0 To 3  '这里的3指的是你本次打印希望打印多少张，打印张数需要减1，如果需要打印100张，将3改成99即可，其他不用动，依次类推。
           ActiveDocument.PrintOut  '向打印机发送打印内容和指令

    '以下为打开Word的插入页码对话框和设置页码起始页的对话框对页码进行每打印一页自动将页码加1的设置操作，但是由于采用了VBA来实现，这两个对话框是不显示出来的
    With Selection.Sections(1).Headers(1).PageNumbers
        .NumberStyle = wdPageNumberStyleArabic
        .HeadingLevelForChapter = 0
        .IncludeChapterNumber = False
        .ChapterPageSeparator = wdSeparatorHyphen
        .RestartNumberingAtSection = True
        .StartingNumber = .StartingNumber + 1  '每打印一页，页码自动加1
    End With
    Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _
        wdAlignPageNumberRight, FirstPage:=True

    With ActiveDocument.Styles("页眉").ParagraphFormat  '去掉页眉
    .Borders(wdBorderBottom).LineStyle = wdLineStyleNone

End With
Next i
End Sub

qh8600

那就不适合弄这个啊

hmte7ahwxy

qh8600 发表于 2015-9-28 16:18
那就不适合弄这个啊

是不方便在现有代码中进行添加日期落款的功能么？求指导啊