Shape.Duplicate (Word)

Cria uma duplicata do objeto Shape especificado, adiciona a nova forma à coleção Shapes em um deslocamento padrão das formas originais e retorna o novo objeto Shape .

Set newShape = ActiveDocument.Shapes(1).Duplicate 
With newShape 
 .Fill.PresetGradient msoGradientVertical, 1, msoGradientGold 
End With