Microsoft Office Forums - View Single Post - Help, with Script to right Indent align if found tx )

Cendrinne · 06-04-2022, 07:09 PM

Hello Pros,
I've been trying and to no avail. Need hint to figure out why my script doesn't do anything.

I'm glad I don't have an error message, but I'm hoping if the cell has a number with a bracket, then have the cell have a Right indent of 0.04.

Code:

Dim xTbl As Table
Dim aCel As Cell
Dim oRng As Range
  
Application.ScreenUpdating = False

For Each xTbl In ActiveDocument.Range.Tables
  For Each aCel In xTbl.Range.Cells

     'If aCel.Range.Characters.Last = ")" Then  'I've tried this but to no aval
      If aCel.Range.Text = ")" Then
        If aCel.Range.ParagraphFormat.RightIndent <> (0.04) Then
        aCel.Range.ParagraphFormat.RightIndent = InchesToPoints(0.04)
        End If
      End If
 
  Next aCel

Next
  Application.ScreenUpdating = True
  Application.ScreenRefresh
  DoEvents
  
lbl_Exit:
  Set xTbl = Nothing
  Set oRng = Nothing
  Exit Sub
  
  On Error GoTo 0

Ideally, as of column 2, meaning if my column 1 has bla bla text which included a number in parentheses, then disregard it.

Any insights? Is it doable?

I would be so appreciative. Spent all day on this issue.

Thanks for any idea or insights.

Cendrinne