Dim oShape As Shape Set oShape = ActiveDocument.Shapes.AddShape(msoShapeOval, 50, 50, 400, 300) oShape.Fill.ForeColor = &HFFFFFF oShape.TextFrame.TextRange.Paste