Oscar Sun

                  Sub Wordªí®æ¿z¿ï_¦X¨ÖÀx¦s®æ() '558.6016 '
Dim r As Row, i As Long, rng As Range, tb As Table, c As Cell, s, e, cnx As Cell

s = Timer
Application.ScreenUpdating = False
ThisDocument.ActiveWindow.Visible = False
x = "ªü"
Set tb = ThisDocument.Tables(1)
tb.Range.Font.Hidden = False
For Each c In tb.Columns(7).Cells
    i = i + 1
    If i > 1 Then '¤ÓºC:¡@r.Index > 1 Then'
        If InStr(c.Range, x) = 0 Then
'            'r.Range.Select''
'            c.Row.Range.Font.Hidden = True 'ÁôÂ꺤å¦rrange=""'
            'c.Range.Font.Hidden = True
            c.Range.Font.Hidden = True
            Set cnx = c.Next
            If cnx Is Nothing = False Then
                Do Until cnx.ColumnIndex = 1
                    cnx.Range.Font.Hidden = True
                    Set cnx = cnx.Next
                    If cnx Is Nothing Then Exit For
                Loop
            End If
            Set cnx = c.Previous
            If cnx Is Nothing = False Then
                Do
                    cnx.Range.Font.Hidden = True
                    Set cnx = cnx.Previous
                    If cnx Is Nothing Then Exit For
                Loop Until cnx.ColumnIndex = 1
                cnx.Range.Font.Hidden = True
            End If
'            tb.Rows(c.RowIndex).Range.Font.Hidden = True
        End If
'        r.Range.Font.Hidden = False'
    End If
Next
Application.ScreenUpdating = True
ThisDocument.ActiveWindow.Visible = True

e = Timer
Debug.Print e - s
MsgBox "done" & vbCr & e - s, vbInformation
End Sub