D
Doug Robbins - Word MVP
Hi Bob,
Maybe the following will help.
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
End Sub
Please post any further questions or followup to the
newsgroups for the benefit of others who may be
interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting
basis.
Hope this helps
Doug Robbins - Word MVP
Maybe the following will help.
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
End Sub
Please post any further questions or followup to the
newsgroups for the benefit of others who may be
interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting
basis.
Hope this helps
Doug Robbins - Word MVP