Finding and deleting empty rows in tables in Word 1

[harky]

Does anyone know how to determine whether or not a row in a Word table is empty and delete it?

 

[JustinEzequiel]

Sub test()
Dim oRow As Row
Dim oCell As Cell
Dim oTable As Table
Dim nRowIndex As Long
Dim nCellCount As Long
Dim i As Long

For Each oTable In ActiveDocument.Tables
For nRowIndex = oTable.Rows.Count To 1 Step -1
Set oRow = oTable.Rows(nRowIndex)
nCellCount = oRow.Cells.Count
If oRow.Range.Text = EmptyRow(nCellCount) Then ' empty
oRow.Delete
Else
Debug.Print nRowIndex, "is not empty"
End If
Set oRow = Nothing
Next nRowIndex
Next oTable

Set oRow = Nothing
Set oTable = Nothing
End Sub

Private Function EmptyRow(ByVal nCellCount As Long) As String
Dim i As Long

For i = 1 To (nCellCount + 1)
EmptyRow = EmptyRow & Chr$(13) & Chr$(7)
Next i
End Function

 

[harky]

Do you know how I can stop the code at the end of the document, it seems to be stuck in a continuous loop?

 

[JustinEzequiel]

Can you post your code?
I tried my code on a sample file with lots of tables and it exits properly.

 

[harky]

Sorry, my mistake. I think because the files I was working on were very large, it appeared to have crashed. But it's fine. Thanks again for your help.