求删除空行首行缩进代码

zzpsx

求删除空行首行缩进代码.rar (15.05 KB, 下载次数: 19)

2020-7-24 16:12 上传

点击文件名下载附件

需要一段代码：执行以后，会删除所有空行，并让每段首行缩进

One of America's biggest circuses will soonend elephants in its shows. The circus said it would stop by 2018. All itselephants will move to an animal conservation centre. They will retire there.The circus is doing this because of public protests. One hundred years ago, itwas OK for animals to perform for humans. However, not today. People areworried about animals. The circus will continue to use other animals, such ascamels, dogs, horses, lions and tigers.

Animal rights groups have always criticisedcircuses. One group, People for the Ethical Treatment of Animals, explainedthat circus elephants have a bad life. It said many elephants have painfulbones and lung diseases. It wants the elephants to retire now. Many places inthe USA have banned the use of elephants. This makes it hard for circuses to goon tour. The owners of the circus said it was hard to stop using theirelephants. They understand the public's feeling.

小花鹿

里面有一行中只有一个空格，这算不算空行？

zzpsx

小花鹿 发表于 2020-7-25 07:15
里面有一行中只有一个空格，这算不算空行？

算，也算，谢谢提醒。

cuanju

Sub d1()
    Rem 删除段落首尾空格及制表符但不含段落首尾下划线空格
    Application.ScreenUpdating = False
    On Error Resume Next
    For Each t In ActiveDocument.Paragraphs
        For n = 1 To t.Range.Characters.Count
            If t.Range Like " *" Or t.Range Like "　*" Or t.Range Like Chr(9) & "*" Or t.Range Like ChrW(160) & "*" Then
                If t.Range.Characters(t.Range.Characters.Count - 1).Font.Underline = 0 Then t.Range.Characters(1).Delete
            ElseIf t.Range Like "* " & Chr(13) Or t.Range Like "*　" & Chr(13) Or t.Range Like "*" & Chr(9) & Chr(13) Or t.Range Like "*" & ChrW(160) & Chr(13) Then
                Do While t.Range.Characters(t.Range.Characters.Count - 1) = " " Or t.Range.Characters(t.Range.Characters.Count - 1) = "　" Or t.Range.Characters(t.Range.Characters.Count - 1) = Chr(9) Or t.Range.Characters(t.Range.Characters.Count - 1) = ChrW(160)
                    If t.Range.Characters(t.Range.Characters.Count - 1).Font.Underline > 0 Then Exit Do
                    t.Range.Select
                    Selection.EndKey Unit:=wdLine
                    Selection.TypeBackspace
                Loop
            Else
                Exit For
            End If
        Next n
    Next
    Rem *以下为删除空段不包括表格且不删除分节符和分页符
    For Each t In ActiveDocument.Paragraphs
        If Len(t.Range) < 2 And Not t.Range Like "*" & Chr(12) & "*" And t.Range.Tables.Count = 0 Then
            t.Range.Delete
        End If
    Next
    Rem 全文首行缩进
        With ActiveDocument.Content.ParagraphFormat
        .CharacterUnitFirstLineIndent = 2
        .LeftIndent = 0
        .LeftIndent = CentimetersToPoints(0)
        .CharacterUnitLeftIndent = 0
    End With
    Application.ScreenUpdating = True
End Sub

小花鹿

Sub xiaohualu()
    With ActiveDocument.Content.Find
        .Execute "^13{1,}", , , 1, , , , 0, , "^p", 2
    End With
    With ActiveDocument.Range.ParagraphFormat
        .CharacterUnitFirstLineIndent = 2
    End With
End Sub

413191246se

小花鹿 老师 好！cuanju 老师 好！我也凑个热闹：

1. Sub test()
   
2.     Dim i As Paragraph
   
3.     With ActiveDocument
   
4.         '真假回车符/手动换行符=>段落标记
   
5.         .Content.Find.Execute "[^13^11]", , , 1, , , , , , "^p", 2
   
6.         '全选
   
7.         .Select
   
8.         '居中/两端对齐=>删除段落首尾空格(半角空格/全角空格/不间断空格/制表符)
   
9.         CommandBars.FindControl(ID:=122).Execute
   
10.         CommandBars.FindControl(ID:=123).Execute
    
11.         '删除空行(循环遍历所有段落)
    
12.         For Each i In .Paragraphs
    
13.             If Asc(i.Range) = 13 Then i.Range.Delete
    
14.         Next
    
15.         '首行缩进2字符
    
16.         .Content.ParagraphFormat.CharacterUnitFirstLineIndent = 2
    
17.     End With
    
18. End Sub

复制代码