If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
add rows to Word table
Doug Robbins posted this in an earlier post but I'm getting an error
message: Bad parameter on the following line: ..Cell(.Rows.Count, .Columns.Count).Range.FormFields(1).ExitMacro = "addRow" Can anyone help me out please. If I comment it out then it adds another row but doesn't do the copy of the types of form fields. ' 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 Long, i As Long Dim Response Response = MsgBox("Do you need to add another row to the table?", _ vbYesNo + vbQuestion + vbDefaultButton2, "Add another Row") If Response = vbYes Then ' User chose Yes. With ActiveDocument .Unprotect With Selection.Tables(1) .Rows.Add rownum = .Rows.Count For i = 1 To .Columns.Count ActiveDocument.FormFields.Add Range:=.Cell(rownum, i).Range, Type:=wdFieldFormTextInput Next i .Cell(.Rows.Count, .Columns.Count).Range.FormFields (1).ExitMacro = "addRow" .Cell(.Rows.Count, 1).Range.FormFields(1).Select End With .Protect Type:=wdAllowOnlyFormFields, NoReset:=True End With Else ' User chose No. Exit Sub End If |
#2
|
|||
|
|||
add rows to Word table
The code should all be on one line or be broken with a Visual Basic line
break which is a space then an underscore. -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Worsty" wrote in message ... Doug Robbins posted this in an earlier post but I'm getting an error message: Bad parameter on the following line: .Cell(.Rows.Count, .Columns.Count).Range.FormFields(1).ExitMacro = "addRow" Can anyone help me out please. If I comment it out then it adds another row but doesn't do the copy of the types of form fields. ' 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 Long, i As Long Dim Response Response = MsgBox("Do you need to add another row to the table?", _ vbYesNo + vbQuestion + vbDefaultButton2, "Add another Row") If Response = vbYes Then ' User chose Yes. With ActiveDocument .Unprotect With Selection.Tables(1) .Rows.Add rownum = .Rows.Count For i = 1 To .Columns.Count ActiveDocument.FormFields.Add Range:=.Cell(rownum, i).Range, Type:=wdFieldFormTextInput Next i .Cell(.Rows.Count, .Columns.Count).Range.FormFields (1).ExitMacro = "addRow" .Cell(.Rows.Count, 1).Range.FormFields(1).Select End With .Protect Type:=wdAllowOnlyFormFields, NoReset:=True End With Else ' User chose No. Exit Sub End If |
Thread Tools | |
Display Modes | |
|
|