microsoft.public.word.vba.general

Hi Daren,

something along these lines:

Sub MyFileSaveAs()
Dim sNam As String
Dim lTmp As Long
sNam = ActiveDocument.FullName
sNam = Left(sNam, Len(sNam) - 4) ' not Word 2007
If Not IsNumeric(Right(sNam, 3)) Then
sNam = sNam & "-000" & ".doc"
ActiveDocument.SaveAs sNam
Else
lTmp = CLng(Right(sNam, 3))
lTmp = lTmp + 1
sNam = Left(sNam, Len(sNam) - 4)
sNam = sNam & Format(lTmp, "-000")
sNam = sNam & ".doc"
ActiveDocument.SaveAs sNam
End If

End Sub

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP