Dim PartDoc As PartDocument
    PartDoc = ThisApplication.ActiveDocument
	
	Dim Def As PartComponentDefinition
Def = PartDoc.ComponentDefinition
	
	Dim Factory As iPartFactory
Factory = Def.iPartFactory

Dim Row As iPartTableRow
    For Each Row In Factory.TableRows
		Factory.DefaultRow = Row
		 Dim dWeight As Double
        dWeight = PartDoc.ComponentDefinition.MassProperties.Mass
		Dim strWeight As String
        strWeight = PartDoc.UnitsOfMeasure.GetStringFromValue(dWeight, kDefaultDisplayMassUnits)
		Row.Item(5).Value = strWeight
Next