Excel VBA PreferredWidth on Word Table Columns

[dhancy]

Hello,

Using Excel VBA, I am trying to adjust the column widths of a table I created in Word. I have tried many variations of this, but I still cannot get this formatted correctly. Here is a snippet of the code I currently have:

wrdDoc.Tables.Add Range:=.Range, NumRows:=4, NumColumns:=3, DefaultTableBehavior:=0

With wrdDoc.Tables(wrdDoc.Tables.Count)
                    .Columns.PreferredWidthType = wdPreferredWidthPercent
                    .Columns(1).PreferredWidth = 10
                    .Columns(2).PreferredWidth = 20
End With

With this particular version, the resulting table shows three columns, each of which has the same column width. I have tried wdPreferredWidthPoints as well, but that also does not display correctly.

Can you let me know if I am missing something? Perhaps there is a parameter I can add/change on the first line when I create the table? Perhaps there is another column attribute I can use besides PreferredWidth?

Any hints you can provide to help me correct this are greatly appreciated. Thank you!!!


Dennis

 

[RoryA]

Do you have a reference set to the Word object library?

 

[dhancy]

Do you have a reference set to the Word object library?

I do. I use this script all the time. Now I am trying to add a new table to the Word document, and that's the part I am having problems with.

Thanks,
Dennis