Word Table - Delete Rows where Cell Values all = 0

[ajhez]

Hi all

I have a document with a large table that will be populated with information as per the example below.

	Type 1	Type 2	Type 3	Type 4
Matter 1	0%	2%	3%	1%
Matter 2	0%	0%	0%	0%
Matter 3	1%	0%	4%	0%

I need a macro to recognize when all 4 cells in a row have a 0% value and then delete those rows -e.g. 'Matter 2' in the above example. For the avoidance of doubt, other rows can remain where one ore more cells in that row has a value of 0% provided that not all 4 cells in that row are 0%.

Any thoughts would be great.

Thanks,
AJHEZ

[gmaxey]

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oTbl As Table
Dim lngIndex As Long, lngCell As Long
Dim bKill As Boolean
  Set oTbl = Selection.Tables(1)
    For lngIndex = oTbl.Rows.Count To 2 Step -1
      bKill = True
      For lngCell = 2 To 5
        If Left(oTbl.Cell(lngIndex, lngCell).Range.Text, 2) <> "0%" Then
          bKill = False
          Exit For
        End If
        If bKill Then oTbl.Rows(lngIndex).Delete
      Next lngCell
    Next lngIndex
lbl_Exit:
  Exit Sub
End Sub