Microsoft Office Forums - View Single Post - [Solved] Eliminate blanc spaces at the beginnig row

Bird_FAT · 06-25-2009, 05:52 AM

OK - all you need to do is change two pieces in the code:

First you need to add in the symbol for a paragraph marker - this will mean that the code will then ONLY replace the spaces AFTER a paragrph marker, second alter the 'replace' field to indicate a paragraph marker (see the red indicators below!)

(Use the 'Show/Hide' button to see the ¶ symbol)

Code:

Sub Find_and_replace_spaces_Macro()
' Macro re-written 6/25/2009 by Bird_FAT
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p       "
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Do While Selection.Find.Execute
    With Selection
        If .Find.Forward = True Then
            .Collapse Direction:=wdCollapseStart
        Else
            .Collapse Direction:=wdCollapseEnd
        End If
        .Find.Execute Replace:=wdReplaceOne
        If .Find.Forward = True Then
            .Collapse Direction:=wdCollapseEnd
        Else
            .Collapse Direction:=wdCollapseStart
        End If
        .Find.Execute
    End With
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Loop
End Sub