Sub Test() Dim s As Shape, x As Double, y As Double ActiveDocument.DataFields.Add "Area", "0.000" For Each s In ActivePage.Shapes s.GetSize x, y s.ObjectData("Area").Value = x * y Next sEnd Sub