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