Repeating Rows with Form Fields

[LPS]

I am using Word 2000 and need to have a new table row containing protected
form fields automatically generate when the TAB key is pressed at the end of
the last row, so that the new row automatically contains the same form
fields.

I have reviewed previous questions and found some with references to macros
and I have tried the macro below, with no success. Can anyone tell me what I
am doing wrong? I am not famliar with macros, and I do not understand the
macro below, therefore I am probably making some major mistakes.


Sub addrow()

' Macro created 02/02/03 by Doug Robbins

' To add a new row to a table containing formfields in every column

' automatically on exit from the last cell in the present last row of the
' Table

Dim rownum As Integer, i As Integer

ActiveDocument.Unprotect

ActiveDocument.Tables(1).Rows.Add

rownum = ActiveDocument.Tables(1).Rows.Count

For i = 1 To ActiveDocument.Tables(1).Columns.Count

ActiveDocument.FormFields.Add
Range:=ActiveDocument.Tables(1).Cell(rownum, i).Range,
Type:=wdFieldFormTextInput

Next i

ActiveDocument.Tables(1).Cell(ActiveDocument.Tables(1).Rows.Count,
ActiveDocument.Tables(1).Columns.Count).Range.FormFields(1).ExitMacro =
"addrow"

ActiveDocument.Tables(1).Cell(ActiveDocument.Tables(1).Rows.Count,
1).Range.FormFields(1).Select

ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True




Thanks for any advise / guidance given,
LPS

 

[Cindy M -WordMVP-]

this duplicate question has received replies in the
vba.general newsgroup. Please do not post to multiple
groups!

Cindy Meister