Auto-Generate n Form Entries (2003)

[bobduncanuk]

The attached form has a heading and a Table.

I want to add a pop-up menu which comes when opening the file

[HansV]

You could store the table in the template as an AutoText entry and use code in the Document_New event to insert a number of copies of the AutoText entry in the document:

Private Sub Document_New()
Dim intNumber As Integer
Dim i As Integer
intNumber = Val(InputBox(Prompt:="How many students?", Default:=5))
ActiveDocument.Unprotect
For i = 1 To intNumber
Selection.EndKey Unit:=wdStory
ActiveDocument.AttachedTemplate.AutoTextEntries("S tudent").Insert _
Where:=Selection.Range
Selection.InsertParagraphAfter
Next i
ActiveDocument.Protect Type:=wdAllowOnlyFormFields
End Sub

See attached version.

[bobduncanuk]

Cheers Hans,

Opened the file, but just got a blank document, cant see any buttons or pop-up box

[HansV]

Make sure macro security is not set to High in Tools | Macro | Security. Medium is the recommended setting. When you open the template, you'll get a warning; click Enable macros.