如何批量删除word表格中的空白行

jun5632080

求助大神，能不能用VBA实现，在word中删除掉全文表格中第一列为空的空白行

xyxcc177

Dim ph As Paragraph
For Each ph In Application.ActiveDocument.Paragraphs
   If Len(ph.Range) = 1 Then
      ph.Range.Delete
   End If
Next

jun5632080

xyxcc177 发表于 2021-12-28 19:12
Dim ph As Paragraph
For Each ph In Application.ActiveDocument.Paragraphs
   If Len(ph.Range) = 1 T ...

您好，我试了下，没有起作用，不知道什么原因

413191246se

* 楼主，下面代码在满足几个条件后，可以手动执行，效率虽然不高，但尚可解一时之难：
   
* 条件：1、将光标放在表格中，如果不是规则表格，请将光标放在某个行中，按 F3 可拆分表格，使其变为规则表格（一个表格变为两个，上面的是不规则的，下面的是规则的），将光标放在规则表格中，按 F4 可自动删除第一列为空的空白表格行。2、表格第一列中应该无空格，如果有空格，请全部删除后再重复第一步。
   
* 使用方法：打开 Word，按 Alt + F8 观察宏名列表中有无宏。如果无宏名（一片空白），则请录制一个宏后，重新按 Alt + F8 找到此宏，点击“编辑”，进入 VBE 后，复制下面的代码到最后面，执行 a___Hotkey 后，关闭 VBE，把光标放在表格中，按 F3 拆分表格，F4 删除表格空行。

1. Sub a___Hotkey()
   
2.     KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyF3), KeyCategory:=wdKeyCategoryMacro, Command:="a___iSplitTable"
   
3.     KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyF4), KeyCategory:=wdKeyCategoryMacro, Command:="a___iDeleteBlankRows_When_FirstCellEmpty"
   
4.     MsgBox "F3: SplitTable        F4: DeleteBlankRows", 0 + 48
   
5. End Sub
   
6. Sub a___iSplitTable()
   
7.     Selection.SplitTable
   
8. End Sub
   
9. Sub a___iDeleteBlankRows_When_FirstCellEmpty()
   
10.     Dim r As Row
    
11.     For Each r In Selection.Tables(1).Rows
    
12.         If Len(r.Cells(1).Range) = 2 Then r.Delete
    
13.     Next
    
14. End Sub

复制代码