Form automation in Word 2003

[Syntax_aus]

Hi, I am trying to automate my first form to print client labels for sticking on forms. I want to enter the details for one sticker and get the form to fill out the remainder of the stickers/labels on the page automatically.
Obviously there is a problem with the form or macro working to populate the fields.
If anyone can tell me how to get this working I would really appreciate it?
I have this code on the command button 1, it lets me put the information into the fields of the form but errors when I click on the button.

Private Sub CommandButton1_Click()
With ActiveDocument
.Field("Surname").range_
.InsertBefore Surname
.Field("GivenNames").range_
.InsertBefore GivenNames
.Field("DOB").range_
.InsertBefore DOB
.Field("Doctor").range_
.InsertBefore Doctor
.Field("Allergies").range_
.InsertBefore Allergies
UserForm1.Hide
End Sub

The fields on my Word document have the same names (I previously had "Bookmarks" in this code where I now have fields but that didn't work either.

In the macro (autonew) I have the code

Sub autonew()
'
' autonew Macro
' Macro created 6/27/2006 by Syd
'
UserForm1.Show
End Sub

Thankyou for any help anyone can give me
Syd Farrell

[westconn1]

can i ask why you don't use mailmerge for mailing labels?

pete