If you all the shapes are in fact AutoShapes and AutoShapeType msoTypeOval then this should work:

Sub ResetShapeLineWT()
Dim oShp As Shape
For Each oShp In ActiveDocument.Shapes
If oShp.AutoShapeType = msoShapeOval Then
oShp.Line.Weight = 4.5
End If
Next
End Sub

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/