Splits a merged table cell back into its constituent cells. Returns a CellRange object representing the constituent cells.
expression.Split
expression Required. An expression that returns one of the objects in the Applies To list.
If the specified cell is not a merged cell resulting from using the Merge method, an error occurs.
The following example splits the first cell in the table in shape one on page one of the active publication into its constituent cells. Shape one must contain a table, the first cell of which is a merged cell, in order for this example to work.
Dim cllMerged As Cell
Set cllMerged = ActiveDocument.Pages(1) _
.Shapes(1).Table.Cells.Item(1)
cllMerged.Split