Range.ShapeRange (Word)

Devuelve una colección ShapeRange que representa todos los objetos Shape del intervalo especificado.

Un intervalo de formas puede incluir dibujos, formas, imágenes, objetos OLE, controles ActiveX, objetos de texto y llamadas.

ActiveDocument.Content.ShapeRange.Fill.ForeColor.RGB = _ 
 RGB(255, 0, 255)