Save file

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Daren White - 07 Mar 2008 19:55 GMT

I have a template which has a sendforreview button attached. I need to save
the document before I can use the sendforreview command. Is there any way I
can use the saveas command and have it saved as doc1 then doc 2 the next time
it is used then doc3 and so on?

Reply to this Message

Helmut Weber - 08 Mar 2008 01:26 GMT

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

Reply to this Message

Daren White - 08 Mar 2008 16:19 GMT

Thanks works a treat

> Hi Daren,
>
[quoted text clipped - 26 lines]
>
> Vista Small Business, Office XP

Reply to this Message