Assuming your don't want to deal with xml-based code and the attribute order is always consistent, you could use something like this to extract the content
Code:
Sub Macro1()
Dim sText As String, arrText() As String, i As Integer, sOutput As String
sText = ActiveDocument.Paragraphs(1).Range.Text
arrText = Split(sText, """")
' For i = LBound(arrText) To UBound(arrText)
' Debug.Print i, arrText(i)
' Next i
sOutput = arrText(9) & vbLf & arrText(3) & vbLf & arrText(15) & vbLf & arrText(1)
Debug.Print sOutput
End Sub