VBA删除word中的表中的空白行

413191246se

1. Sub 删除空行()
   
2.     Dim i As Paragraph
   
3.     For Each i In ActiveDocument.Paragraphs
   
4.         If Len(i.Range) = 1 Then i.Range.Delete
   
5.     Next
   
6. End Sub

复制代码

郭宏伟66

sqhsqhli 发表于 2011-1-12 20:37
Sub 删除表格空行()
On Error Resume Next
Dim myTable As Table

这个代码我试了下、只能删除表格最后几列是空行的 而不能删除中间有空行得 麻烦大神指导下

413191246se

* 楼上朋友请试试下面的宏：

1. Sub 删除表格空白行()
   
2.     Dim tb As Table, r As Row
   
3.     With ActiveDocument
   
4.         For Each tb In .Tables
   
5.             For Each r In tb.Rows
   
6.                 r.Range.Find.Execute FindText:="^l", replacewith:="^p", Replace:=wdReplaceAll
   
7.                 r.Range.Find.Execute FindText:="　", replacewith:="", Replace:=wdReplaceAll
   
8.                 r.Range.Find.Execute FindText:="^w", replacewith:="", Replace:=wdReplaceAll
   
9.                 If Len(Replace(Replace(r.Range.Text, vbCr, ""), Chr(7), "")) = 0 Then r.Delete
   
10.             Next
    
11.         Next
    
12.     End With
    
13. End Sub

复制代码

相约零八001

413191246se：羡慕你会的多

413191246se

哪里，我也只是会一点 VBA 皮毛而已。咱们都应该向 杜老师 那些高手学习！