#1
|
|||
|
|||
VBA to distribute all columns evenly within tables
Hi all,
I am looking for VBA code which will find all tables within a Word document and distribute the content of these columns evenly (in the same way that you can manually select a table in Word, select Layout and Distribute Columns). Thanks for your help. |
#2
|
||||
|
||||
The following code will do what you asked.
Code:
Sub Macro1() Dim aTbl As Table For Each aTbl In ActiveDocument.Tables 'aTbl.PreferredWidthType = wdPreferredWidthPercent 'aTbl.PreferredWidth = 100 If aTbl.Columns.Count > 1 Then aTbl.Range.Cells.DistributeWidth Next aTbl End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#3
|
|||
|
|||
Odd Behaviour when adjusting column width via Word VBA
I followed the VBA sample from the above thread and it works fine on a newly created table from Word.
In my scenario, I am creating a Word document from another application. The 3rd party application creates tables and using a Word template which I supplied, it pastes HTML into the Word document. The application creates a bunch of tables in the Word document and the column widths are different. I want to make them evenly distributed. When I run the routine noted above, it doesn't work on first try. If I then go to one of the tables and adjust the column width on any random column and then go back and run the macro again, the table resizes the columns. It only seems to work for those tables in the document where I manually resize a column. Obviously this defeats the purpose of the macro. Anyone have any ideas why this behaviour is occurring? Does it have something to do with the HTML that is used to create the table when the document is first created? Appreciate any thoughts and/or corrective actions. |
#4
|
||||
|
||||
Without seeing a sample document this might be hard to fix.
Can you post a sample document which includes a couple of tables that the macro doesn't work on?
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
Tags |
tables, vba |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
VBA: Selecting columns from multiple tables | LouterMattheus | Excel Programming | 1 | 07-22-2015 06:33 AM |
Tables on a page in twomutiliple columns | derklauer | Word | 1 | 05-15-2015 08:11 PM |
Evenly Space Text Boxes in Word | Squint | Word | 2 | 12-30-2013 09:08 AM |
How do I add columns to existing tables? | dpcalder | Word | 1 | 08-06-2013 09:49 AM |
Columns or tables? | Linda O | Word | 6 | 01-12-2011 08:11 AM |