🚀 go-pugleaf

Thank you for all. I have succeeded creating this script that align a simple selection (one column) in a table.

Dim k, SelectName, NumCells
Set myindesign = CreateObject("InDesign.Application.2.0")
Set MySelection = MyIndesign.Selection.Item(1)

SelectName= TypeName(MySelection)
  Select Case SelectName
   Case "Cell", "Column"
    Set myCells = MySelection.Cells
    NumCells= MyCells.count
    ColWidth = MyCells.Item(1).Width
   
    'Resets Cell Insets and Paragraphs Indents
    For i =1 to NumCells
     Set OneCell =MyCells.Item(i)
     With OneCell
      .leftinset=0
      .rightinset=0
      NbrPara=.Paragraphs.Count
     End With
     For k=1 to NbrPara
      Set MyPara= OneCell.Paragraphs.Item(k)
      With MyPara
       .Justification=idRight
       .LeftIndent=0
       .RightIndent=0
      End With
     Next
    Next
   
    'Gets the biggest Line in the selected cells
    Biggest=0
    For k=1 to NumCells
     Set OneCell =MyCells.Item(k)
     NbrLignes= OneCell.Textlines.Count
     For i=1 to NbrLignes
      Set OneLine=OneCell.Textlines.Item(i)
      Set IP = Oneline.InsertionPoints
      NbrIP=IP.Count
      StartIP = OneLine.HorizontalOffset
      EndIP= IP.Item(NbrIP).HorizontalOffset
      LenghtIP=EndIP-StartIP
      If LenghtIP > Biggest Then Biggest=LenghtIP
     Next
    Next
   
    'This is the Right Indent to apply
    RI=(ColWidth-Biggest)/2
   
    'Applies the RightIndent to all the paragraphs
    For i =1 to NumCells
     Set OneCell =MyCells.Item(i)
     NbrPara=OneCell.Paragraphs.Count
     For k=1 to NbrPara
      Set MyPara= OneCell.Paragraphs.Item(k)
      With MyPara
       .Justification=idRight
       .RightIndent=RI
      End With
     Next
    Next
   Case Else
    MsgBox "You've selected " & SelectName &
  ". Please select at least two cells."
  End Select