Here is the Word macro. Need to have the cursor in the table.
Sub ReplaceRetsCopy()
Selection.Tables(1).Select
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = "||"
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Copy
End Sub
Here is the Excel macro. Paste table into Excel. Run macro. Macro assumes that the table is still selected.
Sub InsertReturns()
Dim str As String
Dim cell As Range
For Each cell In Selection
str = cell.Value
cell.Value = Replace(str, "||", Chr(10))
Next
End Sub
You could automate this from start to end.