Solved

Adjust columns in a Word table using VBA

Posted on 2011-02-19
2
1,577 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

Master Your Team's Linux and Cloud Stack

Come see why top tech companies like Mailchimp and Media Temple use Linux Academy to build their employee training programs.

Question has a verified solution.

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

Suggested Solutions

It is often necessary in this forum and others to illustrate Word fields as text with the field delimiters replaced with the curly brackets that the delimiters resemble when field codes are being displayed on the document. This means that the text c…
Using Word 2013, I was experiencing some incredible lag when typing.  Here's what worked for me....
This video walks the viewer through the process of creating an MLA formatted document, as well as a bibliography with citations.
This video walks the viewer through the process of creating Hyperlinks for the web and other documents. Select the "Insert" tab: Click "Hyperlink":  Type "http://" followed by a web address to reference a website or navigate to a document to ref…

803 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