Group: microsoft.public.word.vba.general
From: =?Utf-8?B?Sm9yZ2VuTk0=?=
Date: Tuesday, February 19, 2008 2:28 PM
Subject: Re: Auto generate serial no and saving addres

Thanks

I shall try this out in a couple of days.
Regards

Jorgen

"Jay Freedman" skrev:

> Near the end of the macro, insert lines as shown below and replace the
> sample password with a real one in two places:
>
> If ActiveDocument.ProtectionType <> wdNoProtection Then
> ActiveDocument.Unprotect Password:="OpenSesame"
> End If
>
> ActiveDocument.Bookmarks("Order").Range.InsertBefore Format(Order, "00#")
>
> ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
> NoReset:=True, Password:="OpenSesame"
>
> ActiveDocument.SaveAs FileName:="path" & Format(Order, "00#")
>
> --
> Regards,
> Jay Freedman
> Microsoft Word MVP FAQ: http://word.mvps.org
> Email cannot be acknowledged; please post all follow-ups to the newsgroup so
> all may benefit.
>
> JorgenNM wrote:
> > Hi
> >
> > This macro works fine, when I use it in an unprotected Form.
> > I would like to use it in a protected form where the user only is
> > able to fill in the designated fields.
> > Is that possible??
> >
> > Thanks in advance
> >
> > Jorgen
> >
> >
> > "Jay Freedman" skrev:
> >
> >> Jorgen wrote:
> >>> I want to assign a serial number to a form when I open the template
> >>> Form.dot The serial value shall increase one each time the template
> >>> Form.doc is opened by anyone with access to the forms template
> >>> folder. I would like the serial number to show up in the header of
> >>> the Form. Then I would like to save the Fom.doc as Form"serial
> >>> number".doc in a predefined folder for this type of forms.
> >>> Any subsequent editing and saving of say Form123.doc shall be
> >>> overwriting the existing Form123.doc
> >>>
> >>> Where do I find a description of this kind of functionality?
> >>>
> >>> Thanks in advance
> >>>
> >>> Jorgen
> >>
> >> Look at http://www.word.mvps.org/FAQs/MacrosVBA/NumberDocs.htm. You
> >> will need to modify the line in the macro that saves the document,
> >> to make the file name and path into the format you want.
>
>
>