Krakmup was telling us:
Krakmup nous racontait que :

If TargetText always equals 0, -1, -2 and -3 then the most simple is to do
something like:

'_______________________________________
Dim oRow As Row

If Selection.Information(wdWithInTable) = False Then Exit Sub

With Selection.Tables(1)
   For Each oRow In .Rows
       If oRow.Cells(1).Range.Text = "0" & Chr(13) & Chr(7) Then
           oRow.Delete
       ElseIf oRow.Cells(1).Range.Text = "-1" & Chr(13) & Chr(7) Then
           oRow.Delete
       ElseIf oRow.Cells(1).Range.Text = "-2" & Chr(13) & Chr(7) Then
           oRow.Delete
       ElseIf oRow.Cells(1).Range.Text = "-3" & Chr(13) & Chr(7) Then
           oRow.Delete
       End If
   Next oRow
End With
'_______________________________________

You could have a function, but since all you are doing is deleting the row,
it is not really worth it.
Or, if TargetText is defined during the procedure, then you can have a
function, like:

'_______________________________________
Sub CallDeleteRow()

Dim TargetText As String

If Selection.Information(wdWithInTable) = False Then Exit Sub

'Some code would generate TargetText,
'here we will set it "manually"
TargetText = 0

Select Case TargetText
   Case "0", "-1", "-2", "-3"
       DeleteRow Selection.Tables(1), TargetText
End Select

End Sub
'_______________________________________

'_______________________________________
Function DeleteRow(MyTable As Table, TargetText As String)

Dim oRow As Row

With MyTable
   For Each oRow In .Rows
       If oRow.Cells(1).Range.Text = TargetText _
           & Chr(13) & Chr(7) Then oRow.Delete
   Next oRow
End With

End Function
'_______________________________________

Hi,

how about this one:

Dim oCll As Cell
Dim s As String
Dim l As Long
If Selection.Information(wdWithInTable) = False Then Exit Sub
Selection.Tables(1).Columns(1).Select
For Each oCll In Selection.Cells
  s = oCll.Range.Text
  s = Left(s, Len(s) - 2)
  For l = 0 To -4 Step -1 '!
     If s = CStr(l) Then '!
        oCll.Row.Delete
        Exit For
     End If
  Next
Next

Hi Krakmup,

You could do a little bit better (and faster) by putting all the Ifs into
the For Each loop.

And to avoid the repeated Ifs too, how about a Select Case:

Dim oRow as Row
' End-Of-Cell-Marker:
Dim eoc as String : eoc=vbCr & Chr(7)
For Each oRow In Selection.Tables(1).Rows
   Select Case oRow.Cells(1).Range.Text
       Case "0" & eoc
           oRow.Delete
       Case "-1" & eoc
           oRow.Delete
       Case "-2" & eoc
           oRow.Delete
       Case "-3" & eoc
           oRow.Delete
   End Select
Next oRow

oRow.Cells(1).Range.Text has only to be determined once, and it seems a bit
more readable.

Regards,
Klaus