Thread: VBA to align left cells table
View Single Post
 
Old 06-24-2021, 03:51 PM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
  
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 4,159
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default
This will probably fail if you have merged cells in your table but it will get you started
Code:
Sub Macro1()
  Dim iRow As Integer, iRows As Integer
  With Selection.Tables(1)
    iRows = .Rows.Count
    For iRow = 2 To iRows
      .Cell(iRow, 2).Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
    Next iRow
  End With
End Sub
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote