'Word文档内嵌表格判断空行并删除 Sub tt() Dim tb As Table Dim tb1 As Table Dim cl As Cell Dim temp As String Dim isDel As Boolean '空行标记,TRUE则删除FALSE则保留 isDel = False For Each tb1 In ThisDocument.Tables(1).Tables Debug.Print tb1.Rows.Count Debug.Print tb1.Columns.Count temp = "" For i = tb1.Range.Rows.Count To 1 Step -1 For j = 1 To tb1.Range.Columns.Count temp = temp & tb1.Cell(i, j).Range.Text '一行数据赋值给temp Next For n = 1 To Len(temp) '判断temp是否为空值 If Mid(temp, n, 1) = Chr(13) Or Mid(temp, n, 1) = Chr(7) Then isDel = True Else isDel = False Exit For End If Next If isDel = True Then Debug.Print "删除行:" & i tb1.Rows(i).Delete End If Next Next Debug.Print "finish" End Sub