VBA to align left cells table

eduzs · #1 06-24-2021, 10:14 AM

I need to align left the text in column 2 from line 2 to the last line in a word table, how can I do that?

Thanks all.

Guessed · #2 06-24-2021, 03:51 PM

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

eduzs · #3 06-25-2021, 09:35 AM

Thanks Guessed, works fine!
I also did this using select.

Code:

Dim oTbl As Table
Set oTbl = ActiveDocument.Tables(1)
With oTbl
    .Range.Columns(2).Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
    .Cell(1, 2).Select
    Selection.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
End With
Set oTbl = Nothing

Just another question, is there a way to set a range of vertical cells from the start cell to the end cell, instead of one left to right and top to bottom?

Code:

Set oRng = ActiveDocument.Range(Start:=oTbl.Cell(2, 2).Range.Start, End:=oTbl.Cell(5, 2).Range.End)

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Align...both left and right?	supersimu	Word	1	01-25-2014 02:05 AM
Unable to vertically center align texts in table cells?	tinfanide	Word	3	11-24-2013 06:37 AM
How to Sort Table Cells from Left to Right	tamaracklodge	Word Tables	4	03-04-2013 04:00 AM
How to align page to left side instead of centre	ghumdinger	Word	2	08-18-2011 10:15 AM
How do I align image at ABSOLUTE top left of a table cell?	shnoozin	Outlook	0	07-22-2011 03:30 PM