microsoft.public.word.vba.general

Thanks works a treat

"Helmut Weber" wrote:

> 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
>