Eliminate blanc spaces at the beginnig row

Bird_FAT · #7 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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Eliminate paragraph breaks	geobruin	Word	1	06-12-2009 06:55 AM
Spaces After Each Word	jnutella	Word	0	03-04-2009 02:00 PM
How to eliminate Header on Contents Page	George99	Word	1	12-06-2008 09:59 AM
Word to Excel hyperlinks and spaces	gak	Word	1	09-14-2008 08:38 AM
protected form with underline fillable spaces	rohitsahib	Word	0	02-02-2006 10:22 AM