|
|
#2
10-19-2016, 04:30 PM
|
||||
|
||||
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 
|
| 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 |
Windows 10 
Office 2013
Threaded Mode