Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.tables
|
|||
|
|||
'addrow' VB macro error: requested member of collection does not e
I am using a VB macro in Word 2003 to allow users to add rows to multiple
tables in a protected form while copying the existing form fields in the new row. I used code posted to another site from a Word MVP (thank you Jay Freedman!) as I am completely new to VB. I suddenly started getting an error message when trying to add new rows to any table in the document: "The requested member of the collection does not exist". Is the cause for the error that some of my tables have merged cells? Is there a way to revise the code to allow merged cells (as I can't work around them)? Is there any general revisions to ensure users can avoid the error message? Sub addrow() Dim response As Integer Dim myRow As Long Dim myCount As Long Dim colCount As Long Dim colIndex As Long Dim myNewField As String If Not Selection.Information(wdWithInTable) Then Exit Sub End If response = MsgBox("Add new row?", vbQuestion + vbYesNo) If response = vbYes Then ActiveDocument.Unprotect colCount = Selection.Tables(1).Columns.Count Selection.InsertRowsBelow 1 Selection.Collapse (wdCollapseStart) myRow = Selection.Information(wdStartOfRangeRowNumber) For colIndex = 1 To colCount - 1 Selection.FormFields.Add Range:=Selection.Range, _ Type:=wdFieldFormTextInput myCount = ActiveDocument.Range.FormFields.Count With ActiveDocument.FormFields(myCount) ..Name = "text" & colIndex & "row" & myRow ..Enabled = True End With Selection.MoveRight Unit:=wdCell Next colIndex Selection.FormFields.Add Range:=Selection.Range, _ Type:=wdFieldFormTextInput myCount = ActiveDocument.Range.FormFields.Count With ActiveDocument.FormFields(myCount) ..Name = "text" & colCount & "row" & myRow ..Enabled = True ..ExitMacro = "addrow" End With myNewField = "text1row" & myRow ActiveDocument.Protect NoReset:=True, _ Type:=wdAllowOnlyFormFields ActiveDocument.Range.FormFields(myNewField).Select End If End Sub |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Formal invitation to become member of a publication | Microsoft Word Help | |||
Method or Data Member not found HELP | Microsoft Word Help | |||
Error# 5852 Requested Object Is Not Available | Mailmerge | |||
MVB error- compile error method or data member not found | Microsoft Word Help | |||
Error 5941 - The requested member of the collection does not exsis | Microsoft Word Help |