Sub Paras_Paste_Start()
Dim Rng As range
Dim oPar As Paragraph
    
    Application.ScreenUpdating = False
    Set Rng = selection.range
    For Each oPar In Rng.Paragraphs
        oPar.range.InsertBefore Chr(32) & Chr(32)
        oPar.range.Characters.First.Paste
    Next oPar
Application.ScreenUpdating = False
Set Rng = Nothing
End Sub