If each line is a separate paragraph then select the text to process and:
Code:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
Dim oTblRng As Word.Range
Dim oTbl As Table
Dim lngIndex As Long
Set oRng = Selection.Range
Set oTblRng = ActiveDocument.Range
oTblRng.Collapse wdCollapseEnd
Set oTbl = ActiveDocument.Tables.Add(oTblRng, oRng.Paragraphs.Count, 3)
For lngIndex = 1 To oRng.Paragraphs.Count
oTbl.Cell(lngIndex, 1).Range.Text = Trim(oRng.Paragraphs(lngIndex).Range.Words(1))
If oRng.Paragraphs(lngIndex).Range.Words(2).Font.Italic = True Then
oTbl.Cell(lngIndex, 2).Range.Text = Trim(oRng.Paragraphs(lngIndex).Range.Words(2))
oTbl.Cell(lngIndex, 3).Range.Text = Trim(oRng.Paragraphs(lngIndex).Range.Words(3))
Else
oTbl.Cell(lngIndex, 3).Range.Text = Trim(oRng.Paragraphs(lngIndex).Range.Words(2))
End If
Next lngIndex
lbl_Exit:
Exit Sub
End Sub