Sub BekezdjelCsere()
'
' BekezdjelCsere Makró
' Rögzítés: 2010.07.08., készítő: eNeL
' Elvileg jó a Word 97, 2000, 2002, 2003 és 2007 programokhoz
' 

' Ez a rész eltávolítja a felesleges bekezdésvég jeleket (és üres sorokat)
'
Selection.HomeKey Unit:=wdStory ' A dokumentum elejére állunk
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "^p^p"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    While Selection.Find.Found
        Selection.MoveRight Unit:=wdCharacter, Count:=1
        Selection.TypeBackspace
        Selection.MoveLeft Unit:=wdCharacter, Count:=2
        Selection.Find.Execute
    Wend
Selection.HomeKey Unit:=wdStory ' A dokumentum elejére állunk
End Sub