Shape.Ungroup (Word)

Desagrupa todas as formas agrupadas na forma especificada.

Este método desmonta figuras e objetos OLE dentro do forma especificado retorna as formas desagrupadas como um único objeto ShapeRange . Como um grupo de formas é tratado como um único objeto, agrupar e desagrupar formas altera o número de itens na coleção Shapes e altera os números de índice dos itens que vêm após os itens afetados na coleção.

Set myDocument = ActiveDocument 
For Each s In myDocument.Shapes 
 s.Ungroup 
Next