Sub StartEnd()
'Format paragraphs between Start and End
   Dim oRng As Range
  Set oRng = ActiveDocument.Range(Start:=64, End:=ActiveDocument.Paragraphs.Count)
    With oRng.Paragraphs
    For Each oPar In oRng.Paragraphs
              oPar.Style = "MyStyle"
    Next oPar
    End With
End Sub