Word table auto text alignment vs cell height

macropod · #3 08-22-2016, 05:28 AM

It's not at all apparent how you expect to have 11pt text in tables with a 6pt row height, but they're your tables:

Code:

Sub FormatTables()
Application.ScreenUpdating = False
Dim oTbl As Table, oCel As Cell
For Each oTbl In ActiveDocument.Tables
  With oTbl.Range
    With .Font
      .Name = "Arial"
      .ColorIndex = wdBlack
      .Size = 11
    End With
    .HighlightColorIndex = wdYellow
    .ParagraphFormat.Alignment = wdAlignParagraphLeft
    .Cells.VerticalAlignment = wdCellAlignVerticalTop
    For Each oCel In .Cells
      If oCel.Height > 6 Then
        oCel.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
      End If
    Next oCel
  End With
Next oTbl
Application.ScreenUpdating = True
End Sub

The above code processes all tables in the document. To process a particular set of tables, change ActiveDocument to Selection, then select the tables to process before running the macro.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Pasting text from Excel cell into word without creating a table, and keeping the in-cell formatting	hanvyj	Excel Programming	0	08-28-2015 01:15 AM
Row auto height	markand_bhatt2008	Excel	1	04-29-2013 07:46 AM
table cell alignment issue	gib65	Word	1	06-02-2012 03:03 PM
Table Text Alignment?	Jazz43	Word Tables	2	08-19-2010 08:07 AM
Auto-populate an MS Word table cell with text from a diff cell?	dreamrthts	Word Tables	0	03-20-2009 01:49 PM