The original macro works with a Word table. To extract just the 'Word' after Scheme, see below. It wouldn't be much of a stretach to output to a worksheet rather than a Word table.
Option Explicit

Sub SplitToTable()
Dim oSource As Document
Dim oTarget As Document
Dim oTable As Table
Dim oRow As Row
Dim oRng As Range
Dim sText As String
Dim oCell As Range
Dim i As Long
    'Assign a variable name to the document
    Set oSource = ActiveDocument
    'Save the document (before changes are made to it)
    oSource.Save
    'Open a new document
    Set oTarget = Documents.Add
    'Create a table in that document and name the header row cells
    Set oTable = oTarget.Tables.Add(oTarget.Range, 1, 1)
    oTable.Rows(1).Cells(1).Range.Text = "ID"
    'Set a range to the original document
    Set oRng = oSource.Range
    'Locate the ID text
    With oRng.Find
        Do While .Execute(FindText:="Scheme : ", MatchCase:=True)
            On Error GoTo lbl_Exit
            oRng.End = oRng.Next.Words(1).End
            oRng.Start = oRng.Words.Last.Start
            oTable.Rows.Add
            'Set a variable name to the last row of the table
            Set oRow = oTable.Rows.Last
            'Fill the first cell in the row with the ID text
            oRow.Cells(1).Range.Text = oRng.Text
            oRng.Collapse 0
            'And go round again
        Loop
    End With
    'Close the original document without recording the changes
    oSource.Close 0
lbl_Exit:
    Exit Sub
End Sub