Hi pav,
For each table, you could insert a new top row, merge all cells in that row, then copy the preceding sentence into it. For example:
Code:
Dim oTbl As Table, Rng As Range
With ActiveDocument
For Each oTbl In .Tables
With oTbl
Set Rng = .Range.Paragraphs.First.Previous.Range
Rng.End = Rng.End - 1
Rng.Cut
Rng.Characters.Last.Delete
.Rows.Add BeforeRow:=.Rows.First
.Rows.First.Cells.Merge
.Cell(1, 1).Range.Paste
End With
Next
End With