VBA彻底删除没有意义的空回车

yjwdjfqb

VBA彻底删除没有意义的空回车
如图，请老师们帮帮忙，谢谢老师们了！

VBA彻底删除没有意义的空回车.rar (12.7 KB, 下载次数: 16)

2022-2-26 16:09 上传

点击文件名下载附件

1. Sub 删除没有意义的空回车()
   
2.     Dim i As Paragraph, n As Integer
   
3.     Application.ScreenUpdating = False
   
4.     For Each i In ActiveDocument.Paragraphs
   
5.         If Len(i.Range) = 1 Then
   
6.             i.Range.Delete
   
7.             n = n + 1
   
8.         End If
   
9.     Next
   
10.     MsgBox "共删除空白段落" & n & "个"
    
11.     Application.ScreenUpdating = True
    
12. End Sub
    

复制代码

limonet

Ctrl+H
查找内容：^p^p
替换为：^p
多试几次。

yjwdjfqb

limonet 发表于 2022-2-26 19:47
Ctrl+H
查找内容：^p^p
替换为：^p

老师你好，主要是想删除，表格中，空行的回车符号，谢谢你了老师！

413191246se

1. Sub DeleteBlankPara()
   
2.     Dim t As Table, c As Cell, i As Paragraph
   
3.     For Each t In ActiveDocument.Tables
   
4.         With t
   
5.             For Each c In .Range.Cells
   
6.                 For Each i In c.Range.Paragraphs
   
7.                     If Asc(i.Range) = 13 And Len(i.Range) = 1 Then i.Range.Delete
   
8.                 Next
   
9.                 With c.Range.Paragraphs
   
10.                     If .Count > 1 And Len(.Last.Range) = 2 Then .Last.Previous.Range.Characters.Last.Delete
    
11.                 End With
    
12.             Next
    
13.         End With
    
14.     Next
    
15. End Sub

复制代码

yjwdjfqb

413191246se 发表于 2022-2-26 23:12

非常感谢老师！