Dim fl As String = ProjectPath & "Reports\退休制文\" & format(date.now,"yyyy-MM-dd") & "\关于" & r("姓名") & "同志退休的通知.doc"
http://www.foxtable.com/webhelp/scr/0362.htm