Sub Macro1()
Dim oRng As Range
Dim oPara As Paragraph
Dim i As Long
    For Each oPara In ActiveDocument.Paragraphs
        Set oRng = oPara.Range
        oRng.End = oRng.End - 1
        If Len(oRng) = 0 Then oPara.Range.Delete
    Next oPara
    For i = 1 To ActiveDocument.Paragraphs.Count
        Set oRng = ActiveDocument.Paragraphs(i).Range
        oRng.Text = Trim(Split(oRng.Text, ":")(1))
        If i Mod 2 = 0 Then
            oRng.Style = "Answer"
        Else
            oRng.Style = "Question"
        End If
    Next i
    Set oRng = Nothing
    Set oPara = Nothing
End Sub