How To Delete Every Row In A Table While Protecting First Row?

Question

The following code should delete every row but the first. However, it deletes every second row.

Dim index As Long
For index = 2 To ActiveDocument.Tables(1).Rows.Count            
    ActiveDocument.Tables(1).Rows(index).Delete
Exit For
Next

`For index = ActiveDocument.Tables(1).Rows.Count to 2 Step -1`. Though I'm not sure what you're doing with `Selection.Information(wdWithInTable)`. Not a Word guy though. — BigBen, Dec 04 '20 at 18:13
Thank you sir! Yea I didn't mean to put the selection in there lol. — Mohamad Bachrouche, Dec 04 '20 at 18:28

score 0 · Answer 1 · edited Dec 04 '20 at 19:57

0

The solution is to loop backwards using Step -1.

Dim index As Long
For index = ActiveDocument.Tables(1).Rows.Count To 2 Step -1
    ActiveDocument.Tables(1).Rows(index).Delete
Next

edited Dec 04 '20 at 19:57

BigBen

answered Dec 04 '20 at 18:34

score 0 · Answer 2 · answered Dec 05 '20 at 22:21

0

Deleting just the last row is as simple as:

With ActiveDocument.Tables(1)
  .Rows(.Rows.Count).Delete
End With

answered Dec 05 '20 at 22:21

macropod

2 Answers2