Adding Rows to a Table

SuzeG · #1 12-19-2013, 11:17 AM

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

fumei · #2 12-19-2013, 04:11 PM

try changing
.Cells(1).

to
.Range.Cells(1).

SuzeG · #3 12-23-2013, 12:51 PM

That did not work.

I found this code online and adjusted it to copy three rows with contentcontrols to 3 new rows. However I cannot add this code to my document that contains many tables. This would be the 7th Table.
As a novice I am unclear how to specify that this code applies only to Table 7.

Code:

 
 Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
Dim p_oTargetRow As Word.Row
With Selection.Range
  If .Information(wdWithInTable) 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 a new Performance Goal ROW?", _
                  vbQuestion + vbYesNo, "New Row") = vbYes Then
          InsertRowWithContent
        End If
        Set p_oTargetRow = Selection.Rows(1)
      End If
    End If
  End If
End With
End Sub

Thank you for your help.

fumei · #4 12-23-2013, 06:00 PM

Quote:

As a novice I am unclear how to specify that this code applies only to Table 7.

I do not understand. You test to see if the Selection is in a table, then you action THAT table. Not table(7) , although of course it could be, the one the selection is in. Are you saying that if the Selection is in table(4), or not in a table at all, you want to action table(7)?

SuzeG · #5 12-26-2013, 08:07 AM

I have several tables in the same document. The code adds rows to a table by testing if the selection is in the last cell of the last column. I only want the coed to apply to table(7). For example, when I am in table six in the last cell the code runs.
Hope that makes more sense.

fumei · #6 12-26-2013, 07:08 PM

Just to confirm.

No matter WHAT table the selection is in, you ONLY want table(7) to be have action. In that case, change table(1) to table(7) IN THE PROCEDURE InsertRowWithContent.

Which, BTW, you have not posted.

SuzeG · #7 12-27-2013, 10:30 AM

Sorry -
I am not sure about the etiquette of when I should post the code. I try to figure it out first on my own with your comments but I am at a loss.
I have uploaded the document.
Yes, I would like the procedure to work only on Table(7)
Thanks for your continued help.

fumei · #8 12-27-2013, 02:06 PM

I am a bit pressed for time so hopefully someone like macropod can speed up helping you. The problem is that your code for InsertRowWithContent (and InsertColumnWithContent) uses Selection. And now you are saying that you do NOT want to use Selection. Therefore things like:

Set oRows = Selection.Rows(1)

are wrong.

It all has to be changed to only use table(7) rows and columns.

SuzeG · #9 01-02-2014, 08:05 AM

OK thanks for your input - Happy New Year!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Grouping table rows to prevent individual rows from breaking across pages	dennist77	Word	1	10-29-2013 11:39 PM
Adding rows and copying formulas	ejtoll	Word Tables	1	12-05-2012 05:09 PM
Adding columns in specific rows only	mhays	Excel	5	01-17-2012 09:13 AM
Odd behaviour of table - keep rows together	Stephan Lindner	Word Tables	1	09-10-2011 05:31 AM
adding rows to word table	hklein	Word VBA	4	07-18-2011 12:21 AM