Microsoft Office Forums - View Single Post - [Solved] Testing for 'Object has been deleted' error

slaycock · 03-31-2018, 04:01 AM

ON rereading the original post my example might be better as

Code:

Sub process_table(this_table As Word.Table)

Dim a_range As Word.Range

    Set a_range = this_table.Range

    ' Do a process on the table
    If a_range.Tables.Count = 0 Then Exit Sub
    
    ' Do a process on the table
    If a_range.Tables.Count = 0 Then Exit Sub
    
    ' Do a process on the table
    If a_range.Tables.Count = 0 Then Exit Sub
        
    Loop
    
End Sub