如何在保存Word文档时保存到指定文件夹下自动编号

Question

在保存Word文档时，利用宏已经可以自动保存到指定文件夹下面，但是想要一个自动编号功能，向各位高手求教，比如我这次保存010001，然后下次点宏按钮时就可以保存为010002，依次类推。如果不行的话，是否可以以保存时间来保存。
下面是自动保存到指定文件夹的宏：
Sub 宏1()
'
' 宏1 宏
'
'
ChangeFileOpenDirectory "D:\合同单\"
ActiveDocument.SaveAs FileName:="01020X", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End Sub

Answer 1

Sub 宏1()
'
' 宏1 宏
'
'
ChangeFileOpenDirectory "D:\合同单\"
ActiveDocument.SaveAs FileName:=Format(Now, "yyyymmdd."), FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End Sub

这样试试

Answer 2

哇塞，学些了，WORD 就是强 有这功能。 不错哦， 高手请说仔细

Answer 3

WPS云文档篇10：开启云同步文件保存自动上云不丢失

Answer 4

增加对WORD文档的统计并加1的功能：

Sub 宏1()
ChangeFileOpenDirectory "D:\合同单\"

iCnt = 1
p = "D:\合同单\"
f = Dir(p & "*.doc")
Do While f <> ""
iCnt = iCnt + 1
f = Dir
Loop

ActiveDocument.SaveAs filename:="01020" & iCnt, FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End Sub

祝你成功！本回答被提问者采纳