Solved

Adjust columns in a Word table using VBA

Posted on 2011-02-19
2
1,594 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
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

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

Introduction Authors who set out to write any sort of lengthy piece for online submission—be it a long question or comment on a technical form, an article, or a substantial blog entry—often find it useful to work up a draft in an editor other t…
Shortcuts in Word Just the other day I had a training for Microsoft and they wanted me to show how well the new Windows and Office behaved on a touch device, which by the way is great, but it was only then that I realized that using keyboard shortc…
This video teaches the viewer how to align pictures around text while keeping the text properly aligned in the document.
This video walks the viewer through the process of creating an MLA formatted document, as well as a bibliography with citations.

738 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