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
Originally Posted by gmayor
Reply With Quote