两个宏都删除不了的空行，求解

ofaye

Sub 宏1()
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "(^13){1,}"
.Replacement.Text = "^13"
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub













Sub DelBlank()
Dim i As Paragraph, n As Integer
Application.ScreenUpdating = False
For Each i In ActiveDocument.Paragraphs
If Len(i.Range) = 1 Then
i.Range.Delete
n = n + 1
End If
Next
MsgBox "共删除空白段落" & n & "个"
Application.ScreenUpdating = True
End Sub
8种天然润肠通便的食物.rar (8.1 KB, 下载次数: 10)

2019-1-6 12:49 上传

点击文件名下载附件

约定的童话

这俩宏是删除空白段落的，不是删除空行，况且你的空行前面都有符号存在

vbee

1. Sub 宏1()
   
2. Selection.WholeStory
   
3. Selection.Find.ClearFormatting
   
4. Selection.Find.Replacement.ClearFormatting
   
5. With Selection.Find
   
6. .Text = "^10^13"
   
7. .Replacement.Text = ""
   
8. .MatchWildcards = False
   
9. End With
   
10. Selection.Find.Execute Replace:=wdReplaceAll
    
11. End Sub

复制代码

ofaye

非常感谢，代码很好用。但是每段的首行缩进的两个空格也被删除了。能否在清除空行之后执行一次首行缩进的命令？

413191246se

首行缩进代码：
    Selection.WholeStory
    Selection.ParagraphFormat.CharacterUnitFirstLineIndent = 2

相见是缘8

ofaye 发表于 2019-1-6 21:26
非常感谢，代码很好用。但是每段的首行缩进的两个空格也被删除了。能否在清除空行之后执行一次首行缩进的命 ...

朋友、你这个没讲清楚呀！究竟是每段的段首缩进2个字符，还是2个空格，如是空格，是2个半角？还是2个全角？？？

ofaye

和我们普遍的排版习惯一样，每段的段首缩进两个汉字的位置。楼上的兄弟能帮忙把代码写完整吗？😄

413191246se

楼主，把代码放到你的宏中 End Sub 上一行即可。

相见是缘8

ofaye 发表于 2019-1-9 21:39
和我们普遍的排版习惯一样，每段的段首缩进两个汉字的位置。楼上的兄弟能帮忙把代码写完整吗？😄

Sub 将()

    With ActiveDocument.Content.Find

        .Execute "^13", , , 0, , , ,, , "^p", 2

        .Execute "^10", , , 0, , , ,, , "", 2

        .Execute " ", , , 0, , , , ,, "", 2

        .Execute "[^13]{1,}", , , 1,, , , , , "^p", 2

    Selection.WholeStory

    Selection.ParagraphFormat.CharacterUnitFirstLineIndent = 2

    Selection.MoveUp Unit:=wdLine, Count:=1

    End With

End Sub

ofaye

非常好用谢谢，几万个文档一次性解决。