🚀 go-pugleaf

Here is a sample for that might not work (sorry I don't do rectangles yet) but it is a starting point:

Sub update_strokes()
Dim strokecount
Set myInDesign = CreateObject("InDesign.application.2.0")
REM you need to have your document open
Set myDocument = myInDesign.ActiveDocument
strokecount = myDocument.Rectangles.Count
For strokeloop = strokecount To 1 Step -1
Rem This might not work, you will need to test
Rem to figure out how to get the strokewight
myjunk = myDocument.Rectangle.Item(strokeloop).strokeweight
If myjunk = 0.5 Then
Rem This might not work, you will need to test
Rem how to change the stroke weight
Set myDocument.Rectangle.Item(strokeloop).strokeweight = 1
Else
End If
Next
End Sub

So you need to go into Visual Basic in say Excel, under tools, references add: Adobe InDesign 2.0 Type Library.

Then create new module and add this code hit F8 to step through it or F5 to just run it.

You might look in the scripting manual and Adobe Exchange to see if they have any samples that deal with stroke weights.
Good luck,
iolaire