Solved

Adjust columns in a Word table using VBA

Posted on 2011-02-19
2
1,558 Views
Last Modified: 2012-05-11
    I am using VBA with Word 2010 and I want to adjust a seven-column table. I want to specify the widths of certain columns. Columns 1, 2 and 6 are hidden, so their width is of little importance, but I would like them to be as narrow as possible so that the visible columns have room to display things.

Visible columns:
     Column 3 contains nothing but a numbered list that Word generates to indicate a sequence number for each row. I need that to be just wide enough to display a three digit number that the computer generates.

     Columns 4 and 5 should be as wide as possible.
     Column 7 will contain a three-digit number, and I want it as narrow as possible so that columns 4 and 5 can be as wide as possible to display some text.

     I am trying to control the size of certain columns with variants of this line of code that the macro recorder generated:

          Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=3, RulerStyle:=wdAdjustNone

     As far as I can see, no matter what number I put after “ColumnWidth:=”, large or small,  I get the same error message: “Run-time error; Value out of range”.

     Can anyone help? To fill in the best values for the table, I would like to find out how wide the columns are when I adjust the table manually. However that is a different question, so I will save that for later.
     
     Thanks for your help.
     j.r allen
     Priddis, Alberta, Canada
0
Comment
Question by:JohnRobinAllen
2 Comments
 
LVL 76

Accepted Solution

by:
GrahamSkan earned 250 total points
ID: 34934933
Hi JRA,

Try it like this:
Sub TableWidths()
    Dim tbl As Table
    Set tbl = ActiveDocument.Tables(1)
    tbl.Columns.PreferredWidthType = wdPreferredWidthPoints
    tbl.Columns(1).PreferredWidth = CentimetersToPoints(1.8)
End Sub

Open in new window

0
 

Author Closing Comment

by:JohnRobinAllen
ID: 34937421
Few things in this world are perfect, but Graham Skan's solutions are always just that.

I, and many others, are grateful for his help and for this forum that lets him and others like him lead the masses out of the darkness into the promised land.

Thanks again!
    --j.r.a.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
*Best* PDF to Word Convertor 4 109
Word 2013/2016 Saving as Temp File 9 41
MS Word Formatting 3 47
Set decimal tabstops on multiple tables using VBA 4 23
The Selection object is designed for user interaction. It has a Range property, so it can be used in most places that a Range object can. Recorded macros must use the Selection because they are simply copying what the user is doing. A Range prope…
This is written from a 'VBA for MS Word' perspective, but I am sure it applies to most other MS Office components where VBA is used.  One thing that really bugs me is slow code, ESPECIALLY when it's mine!  In programming there are so many ways to…
This video walks the viewer through the process of creating a watermark for their document, customizing it, and saving it for viewing/printing needs.
This video shows where to find templates, what they are used for, and how to create and save a custom template using Microsoft Word.

948 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

18 Experts available now in Live!

Get 1:1 Help Now