嘗試執(zhí)行此宏時出現(xiàn)上述錯誤。我對宏和編碼一般還是很陌生，所以請原諒。謝謝Sub DeleteEmptyRows()Dim oTable As Table, oRow As Row, _TextInRow As Boolean, i As LongApplication.ScreenUpdating = FalseFor Each oTable In ActiveDocument.Tables    For Each oRow In oTable.Rows        TextInRow = False        For i = 2 To oRow.Cells.Count            If Len(oRow.Cells(i).Range.Text) > 2 Then                'end of cell marker is actually 2 characters                TextInRow = True                Exit For            End If        Next        If TextInRow = False Then            oRow.Delete        End If    NextNextApplication.ScreenUpdating = TrueEnd Sub