Sub Demo()
Application.ScreenUpdating = False
Dim r As Long
With Selection
  If .Information(wdWithInTable) = False Then Exit Sub
  With .Tables(1)
    For r = 1 To .Rows.Count
      With .Cell(r, 1).Range.ParagraphFormat
        If .LeftIndent = InchesToPoints(0) And .FirstLineIndent = InchesToPoints(0) Then
          .LeftIndent = InchesToPoints(0.17)
        Else
          .LeftIndent = InchesToPoints(0.36)
        End If
        .FirstLineIndent = InchesToPoints(-0.11)
      End With
    Next
  End With
End With
Application.ScreenUpdating = True
End Sub