Table formatting- column widths to percent

dherr · #1 03-17-2015, 10:03 AM

Hi,

I want to set the columns of a table to procentual values and have written the following code:

Code:

Sub setProz(tb As Word.table, prozentual As Variant)
    Dim i As Integer, co As Integer
    With tb
        .PreferredWidthType = wdPreferredWidthPercent
        co = .columns.Count
        For i = 0 To co - 1
            .columns(i + 1).PreferredWidth = Val(prozentual(i))
        Next
    End With
End Sub

The parameters are first a table, second an array, for instance
Array(10, 50, 20, 20) when the table has 4 columns.
The problem is when I use this code, the table doesn't change the column widths at normal runtime.
When I set a debugging breakpoint to the line 'End Sub' the table changes after a second.
I tried to 'refresh' or 'update' the table, but no success...
What's to do?

Regards-
Dietrich

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Splitting one column into two with two different widths	officeboy09	Excel	6	12-15-2013 09:48 PM
Adjusting column widths	norwood	Word VBA	0	09-24-2013 06:53 AM
VBA code to fix column widths	molesy	Excel	3	09-16-2013 12:51 PM
Alternate Table Column Widths on even and odd pages	robrastelli	Word	4	08-08-2012 07:33 PM
Altering Column Widths on Two Col Page	abrogard	Word	2	12-30-2010 06:03 AM