Saving a word document

[HelpPlease7]

I have a word document that i need to duplicate 200 times with the filename ending in consecutive numbers.

file1
file2
file3....file200

thanks

[macropod]

Try something based on:

Sub Make200()
Application.ScreenUpdating = False
Dim i As Long, StrPath As String, StrExt As String, lFmt As Long
With ActiveDocument
StrPath = .Path & "\": lFmt = .SaveFormat
StrExt = "." & Split(.Name, ".")(UBound(Split(.Name, ".")))
For i = 1 To 200
.SaveAs2 FileName:=StrPath & Format(i, "000") & StrExt, _
Fileformat:=lFmt, AddToRecentFiles:=False
Next
End With
Application.ScreenUpdating = True
End Sub
If you need to prefix the number with some text, simply add that after the '\' in:
StrPath = .Path & "\"

Note: The code assumes the active document is the one you want to replicate.

[HelpPlease7]

Thank you!
Does exactly what I wanted.