ลบช่องว่างเกินในเอกสาร Word ด้วย Macro คลิกเดียว

Sub CleanDoc()
    Dim p As Paragraph   ' Holds each paragraph in the loop
    Dim r As Range       ' Holds the range of spaces to delete

    Application.ScreenUpdating = False   ' Turn off screen updating to run faster

    '==================================================
    ' Step 1: Replace 2 or more spaces with 1 space
    '==================================================
    With ActiveDocument.Content.Find
        .ClearFormatting                 ' Clear old search settings
        .Replacement.ClearFormatting     ' Clear old replace settings
        .Text = " {2,}"                  ' Find 2 or more spaces in a row
        .Replacement.Text = " "          ' Replace with 1 space
        .MatchWildcards = True           ' Turn on wildcards so {2,} works
        .Wrap = wdFindStop               ' Stop at the end of the document
        .Execute Replace:=wdReplaceAll   ' Replace all at once
        .MatchWildcards = False          ' Turn wildcards off again
    End With

    '==================================================
    ' Step 2: Remove spaces at the start and end of each paragraph
    '==================================================
    For Each p In ActiveDocument.Paragraphs

        ' Remove spaces at the start
        Set r = p.Range.Duplicate                ' Copy the paragraph range
        r.Collapse wdCollapseStart               ' Move to the start of the paragraph
        r.MoveEndWhile Cset:=" "                 ' Select all spaces going right
        If r.End > r.Start Then r.Delete         ' Delete them if found

        ' Remove spaces at the end
        Set r = p.Range.Duplicate                ' Copy the paragraph range again
        r.MoveEnd wdCharacter, -1                ' Step back before the paragraph mark
        r.Collapse wdCollapseEnd                 ' Move to the end of the text
        r.MoveStartWhile Cset:=" ", Count:=wdBackward   ' Select all spaces going left
        If r.End > r.Start Then r.Delete         ' Delete them if found

    Next p

    Application.ScreenUpdating = True    ' Turn screen updating back on
    MsgBox "Document has been cleaned.", vbInformation, "Done"
End Sub