文件夹的文件都是1.doc，2.doc.....现在要文章第一行改成文件名
但是有些文章第一行是一样，但是内容不同。现在保存时出现重复文件名会替换之前保存的文件
我想是，保存时 重复文件名在后面加 你好1.doc 你好2.doc 你好3.doc
如果保存时已经有重复文件名（你好.doc）在后面添加数字（你好1.doc 你好2.doc）加空格都可以“ ”一个空格代表有一个重复
哪位大神帮帮忙！好人一路平安！
下面是一段保存文件名代码，它可以保存
但是有重复文件名的时候会替换之前保存的文件。
Sub 保存_第一段为文件名()
' 按“打开”按钮，选择当前文档要保存的路径，然后按“取消”按钮关闭对话框，再应用本宏
' 第三行代码意思是去掉最后的字符（回车符）
Dim i As String
i = ActiveDocument.Paragraphs(1).Range.Text
i = Left(i, Len(i) - 1)
ActiveDocument.SaveAs FileName:=i & ".doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End Sub
我是用上面的代码保存的，请帮忙改一下