Sub Demo()
Application.ScreenUpdating = False
Dim oCell As Cell
With Selection
  If .Information(wdWithInTable) = False Then Exit Sub
  For Each oCell In .Tables(1).Range.Cells
    With oCell
      If Round(PointsToCentimeters(.LeftPadding), 2) = 0.5 Then
        .Range.ParagraphFormat.LeftIndent = 72
      End If
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub