Range.ShapeRange (Word)

Retorna uma coleção ShapeRange que representa todos os objetos Shape no intervalo especificado. Somente leitura.

Um intervalo de formas pode conter desenhos, formas, imagens, objetos OLE, controles ActiveX, objetos de texto e textos explicativos.

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