If your document follows the same pattern as the demo you attached, this code will convert its contents.
Code:
Sub Macro1()
Dim sText As String, arrText() As String, i As Long, aRng As Range
With ActiveDocument
For i = .Paragraphs.Count To 1 Step -1
Set aRng = .Paragraphs(i).Range
sText = aRng.Text
arrText = Split(sText, """")
If UBound(arrText) > 14 Then
aRng.Text = arrText(9) & Chr(11) & arrText(3) & Chr(11) & arrText(15) & Chr(11) & arrText(1) & vbCr
End If
Next i
End With
End Sub