Sub ResetShapeLineWT()
  Dim oShp As Shape, oCShp As CanvasShapes, i As Integer
  For Each oShp In ActiveDocument.Shapes
    If oShp.AutoShapeType = msoShapeOval Then
      oShp.Line.Weight = 4.5
    ElseIf oShp.CanvasItems.Count > 0 Then
      For i = 1 To oShp.CanvasItems.Count
        If oShp.CanvasItems(i).AutoShapeType = msoShapeOval Then
          oShp.CanvasItems(i).Line.Weight = 4.5
        End If
      Next i
    End If
  Next
End Sub