Selection.SplitTable (Word)

Inserta un párrafo vacío encima de la primera fila de la selección.

Si la selección no está en la primera fila de la tabla, la tabla se divide en dos.

If Selection.Information(wdWithInTable) = True Then 
 Selection.SplitTable 
End If