循环语句简化代码

413191246se

楼主代码有点儿麻烦，还请试用下面的宏（如果确定空段没有空格，请用《删除空行》宏；如果无法确定空段有没有空格，请用《删除空行2》宏）：

1. Sub 删除空行()
   
2.     Dim i As Paragraph
   
3.     For Each i In ActiveDocument.Paragraphs
   
4.         If Asc(i.Range) = 13 Then i.Range.Delete
   
5.     Next
   
6. End Sub
   
7. Sub 删除空行2()
   
8.     Dim i As Paragraph
   
9.     With ActiveDocument
   
10.         .Content.Find.Execute "[^13^11]", , , 1, , , , , , "^p", 2
    
11.         .Select
    
12.         CommandBars.FindControl(ID:=122).Execute
    
13.         CommandBars.FindControl(ID:=123).Execute
    
14.         For Each i In .Paragraphs
    
15.             If Asc(i.Range) = 13 Then i.Range.Delete
    
16.         Next
    
17.     End With
    
18. End Sub

复制代码

ke3088

413191246se 发表于 2019-5-27 14:03
楼主代码有点儿麻烦，还请试用下面的宏（如果确定空段没有空格，请用《删除空行》宏；如果无法确定空段有没 ...

413191246se老师，你好！我只是想删除最后的空白行或者空白段，即：Len(ActiveDocument.Paragraphs.Last.Range) = 1
您还可以再修改修改吗？

413191246se

1. Sub test删除结尾空段()
   
2.     Dim r As Range
   
3.     With ActiveDocument.Paragraphs
   
4.         Do
   
5.             Set r = .Last.Range
   
6.             r.Select
   
7.             CommandBars.FindControl(ID:=123).Execute
   
8.             CommandBars.FindControl(ID:=122).Execute
   
9.             CommandBars.FindControl(ID:=123).Execute
   
10.             If Len(Selection) = 1 Then r.Delete Else Exit Do
    
11.         Loop
    
12.     End With
    
13. End Sub

复制代码

ke3088

413191246se 发表于 2019-5-28 00:36

413191246se老师，您好！还是不行，空白段的上一行是表格，同样进入死循环

duquancai

ke3088 发表于 2019-5-28 11:49
413191246se老师，您好！还是不行，空白段的上一行是表格，同样进入死循环

提供附件，其余都是空话。

413191246se

楼主，我未考虑到表格的情况，抱歉啊，这回试试吧！

1. Sub test删除结尾空段()
   
2.     Dim r As Range
   
3.     With ActiveDocument.Paragraphs
   
4.         Do
   
5.             Set r = .Last.Range
   
6.             r.Select
   
7.             CommandBars.FindControl(ID:=123).Execute
   
8.             CommandBars.FindControl(ID:=122).Execute
   
9.             CommandBars.FindControl(ID:=123).Execute
   
10.             If Len(Selection) = 1 Then
    
11.                 If Selection.Previous.Information(12) Then Exit Do Else r.Delete
    
12.             Else
    
13.                 Exit Do
    
14.             End If
    
15.         Loop
    
16.     End With
    
17. End Sub

复制代码

ke3088

413191246se 发表于 2019-5-28 16:27
楼主，我未考虑到表格的情况，抱歉啊，这回试试吧！

413191246se老师，您好！代码非常好用，就是这个效果，谢谢您。