删除段落首尾空格

ke3088

经过反复琢磨，自认为是目前最好的删除段落首尾空格的代码，既可删除删除段落首尾空格，又保持原段落设置不变：
Sub 删除段落首尾空格()
    For i = 1 To ActiveDocument.Paragraphs.Count
        Set aRange = ActiveDocument.Range( _
             Start:=ActiveDocument.Paragraphs(i).Range.Start, _
               End:=ActiveDocument.Paragraphs(i).Range.End - 1)
        aRange.Select
        a = Selection.Paragraphs(1).LineSpacing
        b = Selection.Paragraphs(1).CharacterUnitLeftIndent
        c = Selection.Paragraphs(1).CharacterUnitRightIndent
        d = Selection.Paragraphs(1).CharacterUnitFirstLineIndent
        e = Selection.Paragraphs(1).Alignment
        CommandBars.FindControl(ID:=122).Execute
        CommandBars.FindControl(ID:=123).Execute
        With aRange.Paragraphs(1)
            .LineSpacing = a
            .CharacterUnitLeftIndent = b
            .CharacterUnitRightIndent = c
            .CharacterUnitFirstLineIndent = d
            .Alignment = e
        End With
    Next
End Sub
还有扩展段落设置的空间

duquancai

Sub 删除段落首尾空格()
    ActiveDocument.Content.InsertBefore vbCr
    With ActiveDocument.Content.Find
        .Execute "^p^w", , , , , , , , , "^p", 2
        .Execute "^w^p", , , , , , , , , "^p", 2
    End With
    ActiveDocument.Paragraphs(1).Range.Text = Empty
End Sub

ke3088

杜老师，您的代码对半角空格有效，对全角空格无效：
这是运行代码前


这是运行代码后，并且在末尾还多一个空格出来

413191246se

不好意思，杜先生！你的代码无效，我的有效。
Sub 删除段落首尾空格()
'全选/居中/两端对齐
'[方法1]
'    SendKeys "^(aej)", True
'[方法2]
'    Selection.WholeStory
'    Application.Run "CenterPara"
'    Application.Run "LeftPara"
'[方法3]
'    Selection.WholeStory
'    CommandBars.FindControl(ID:=122).Execute
'    CommandBars.FindControl(ID:=123).Execute
'[方法4]
'删除段落首尾空格(表格后须加空)
    With ActiveDocument.Content.Find
        .Execute "(^13)([ 　^s^t]{1,})", , , 1, , , , , , "\1", 2
        .Execute "([ 　^s^t]{1,})(^13)", , , 1, , , , , , "\2", 2
    End With
End Sub

ke3088

413191246se 发表于 2017-12-19 01:20
不好意思，杜先生！你的代码无效，我的有效。
Sub 删除段落首尾空格()
'全选/居中/两端对齐

我也不好意思，虽然你的代码简洁，也还是不如我的：1.首段段落前的空格不能删除；2.把末段的段落设置变成两端对齐，这一点很重要，末段通常是落款日期，居右，空4字；3.在末尾还凭空增加了一行空行。
我的代码的缺陷我也知道，对成千上万段的文档，处理起来速度上有问题

duquancai

ke3088 发表于 2017-12-18 23:19
杜老师，您的代码对半角空格有效，对全角空格无效：
这是运行代码前

哦哦哦哦！你的代码是最好的！

wdpfox

学习了，多谢老师们的探讨！