🚀 go-pugleaf

Hi Lukas

If this stroke is the only one with 1pt thick, this will work:

Private Sub Command3_Click()
    Set myInDesign = CreateObject("InDesign.Application.2.0")
    Set myDocument = myInDesign.ActiveDocument
    myDocument.ViewPreferences.HorzMeasurementUnits = idMSPoints
    myDocument.ViewPreferences.VertMeasurementUnits = idMSPoints
    For i = 1 To myDocument.TextFrames.Count
        Set myTextFrame = myDocument.TextFrames.Item(i)
        For j = 1 To myTextFrame.ParentStory.Tables.Count
            Set myTable = myTextFrame.ParentStory.Tables.Item(j)
            'Here change number 1 with specific position or create a loop
            For k = 1 To myTable.Rows.Count
                If myTable.Rows.Item(k).BottomEdgeStrokeWeight = 1 Then
                    myTable.Rows.Item(k).BottomEdgeStrokeWeight = 0.25
                End If
            Next
        Next
    Next
End Sub

Roberto