Sequential Invoice numbering on forms using macro

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Steve - 09 May 2006 16:02 GMT

Hi,

Once the word form is completed the word document is automaticly saved to
either the desktop or in the My Documents folder. Is it possible to
automaticly store these files to my chosen folder rather than the default
folder using the following code.

Private Sub Document_New()

End Sub
Sub AutoNew()

Order = System.PrivateProfileString("C:\Settings.Txt", _
"MacroSettings", "Order")

If Order = "" Then
Order = 1
Else
Order = Order + 1
End If

System.PrivateProfileString("C:\Settings.Txt", "MacroSettings", _
"Order") = Order

ActiveDocument.Bookmarks("Order").Range.InsertBefore Format(Order, "100#")
ActiveDocument.SaveAs FileName:="Quotation ID_" & Format(Order, "100#")

End Sub

Reply to this Message

Doug Robbins - Word MVP - 09 May 2006 20:28 GMT

Insert the path to the desired folder into the following line of code

ActiveDocument.SaveAs FileName:="Quotation ID_" & Format(Order, "100#")

between the " and the Q of Quotation

e.g.

ActiveDocument.SaveAs FileName:="c:\invoices\Quotation ID_" & Format(Order,
"100#")

Signature

Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

> Hi,
>
[quoted text clipped - 24 lines]
>
> End Sub

Reply to this Message

Steve - 09 May 2006 21:32 GMT

Fantastic!

Thanks Doug.

> Insert the path to the desired folder into the following line of code
>
[quoted text clipped - 35 lines]
> >
> > End Sub

Reply to this Message