Range.ShapeRange (Word)

Returns a ShapeRange collection that represents all the Shape objects in the specified range.

A shape range can contain drawings, shapes, pictures, OLE objects, ActiveX controls, text objects, and callouts.

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