用下面的宏,可以生成1000个同样的文档,如果需要更多,把下面的1000改为你要的数字即可。
先制作好第一个文档,然后运行下面的宏即可。
Sub Macro2()
For i = 1 To 1000
ActiveDocument.SaveAs FileName:="abcd" + Str(i), FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
Next i
End Sub
先制作好第一个文档,然后运行下面的宏即可。
Sub Macro2()
For i = 1 To 1000
ActiveDocument.SaveAs FileName:="abcd" + Str(i), FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
Next i
End Sub