Cacher is the code snippet organizer for pro developers

layout_search_replace.jump_to_reference_section
Selection.MoveDown wdLine, 1
Set myrange = ActiveDocument.Range(Selection.Range.Start, ActiveDocument.Range.End)
Dim p As paragraph
For Each p In myrange.Paragraphs
    Do While p.Range.Characters.Last.Previous.Text = " "
       p.Range.Characters.Last.Previous.Text = ""
    Loop
Next