Selection.SplitTable (Word)

Insere um parágrafo vazio acima da primeira linha da seleção.

Se a seleção não estiver na primeira linha da tabela, a tabela será dividida em duas tabelas. Se a seleção não estiver em uma tabela, ocorrerá um erro.

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