I'm back working on paying projects from today so you will see less of me!
Try starting with:
Sub SplitTextBoxes()
Dim oshp As Shape
Dim osld As Slide
Dim L As Long
Dim otr As TextRange2
Dim x As Integer
Set oshp = ActiveWindow.Selection.ShapeRange(1)
Set osld = oshp.Parent
On Error GoTo err
If oshp.HasTextFrame Then
If oshp.TextFrame2.HasText Then
With oshp.TextFrame2.TextRange
For L = 1 To .Paragraphs.Count
Set otr = .Paragraphs(L)
With osld.Shapes.AddTextbox(msoTextOrientationHorizontal, oshp.Left, oshp.Top + x, 400, 15)
.TextFrame2.AutoSize = msoAutoSizeShapeToFitText
.TextFrame2.VerticalAnchor = msoAnchorTop
.TextFrame2.MarginBottom = 0
.TextFrame2.MarginTop = 0
With .TextFrame2.TextRange
.Text = otr.Text
.Font.Size = 12
.Font.Bold = False
.ParagraphFormat.Alignment = msoAlignLeft
'not sure why you are adding white bullets but these lines are probably not needed
'.ParagraphFormat.Bullet.Visible = True
'.ParagraphFormat.Bullet.Character = 167
'.ParagraphFormat.Bullet.Font.Name = "WingDings"
'.ParagraphFormat.Bullet.Font.Fill.ForeColor.RGB = RGB(255, 255, 255)
'.ParagraphFormat.LeftIndent = 14.3
'.ParagraphFormat.FirstLineIndent = -14.3
End With
x = x + .Height
End With
Next L
End With
End If
End If
oshp.Delete
Exit Sub
err:
MsgBox "Please select a text box"
End Sub