Unless it is a state secret, it would help if you should an example of what this pipe delimited text looks like.
But in the absence of that, assume the following selected text represented a table:
Title||Apples|Blueberries|Cherries|Dates||Eggplant|Figs|Ginger|Hops
where "||" delimits a row and "|" delimits a column.
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim arrMajor() As String, arrMinor() As String
Dim strText As String
Dim oRng As Range
Dim oTbl As Table
Dim lngIndex As Long, lngRows As Long
Dim lngEval As Long, lngCol As Long
Set oRng = Selection.Range
strText = oRng.Text
arrMajor = Split(strText, "||")
lngRows = UBound(arrMajor) + 1
Set oTbl = oRng.Tables.Add(oRng, lngRows, 1)
For lngIndex = 0 To UBound(arrMajor)
arrMinor = (Split(arrMajor(lngIndex), "|"))
oTbl.Rows(lngIndex + 1).Cells(1).Split 1, UBound(arrMinor) + 1
For lngCol = 0 To UBound(arrMinor)
oTbl.Cell(lngIndex + 1, lngCol + 1).Range.Text = arrMinor(lngCol)
Next lngCol
Next lngIndex
lbl_Exit:
Exit Sub
End Sub