Hello,
I have code to add 3 content control rows to the end of a table. That code works fine. It is the code to select the table to which the rows are to added that is my problem.
I have several tables in my document and I want the code to pertain to only the 7th table. I tried ActiveDocument.Tables(7) but I get the error "method or data member not found" at the first .Cell(1) line
Also, I am not sure if I have to indicate Tables(7) in the code.
Any help is very much appreciated. Thank you.
Code:
Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
Dim p_oTargetRow As Word.Row
With ActiveDocument.Tables(7)
' With Selection.Range
If .Information(wdWithInTable) Then
' If ContentControl.Range.InRange(.Range) Then
If .Cells(1).RowIndex = .Tables(1).Range.Cells _
(.Tables(1).Range.Cells.Count).RowIndex Then
If .Cells(1).ColumnIndex = .Tables(1).Range.Cells _
(.Tables(1).Range.Cells.Count).ColumnIndex Then
If MsgBox("This is the last row/last cell." _
& " Do you want to ADD new Performance Goal ROWS?", _
vbQuestion + vbYesNo, "New Row") = vbYes Then
InsertRowWithContent
End If
Set p_oTargetRow = Selection.Rows(1)
End If
End If
End If
' End With
End With
End Sub