Re: Need help sizing table columns correctly

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Create a table of the sort that you want and then make an autotext entry out
of it.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Rhino" <no.offline.contact.please@xxxxxxxxxx> wrote in message
news:uQe03T0LGHA.1472@xxxxxxxxxxxxxxxxxxxxxxx
I need some help getting a macro working exactly the way I want. I've
looked in the Help but can't quite figure out what I need to do.

I'm creating a series of small tables, that will appear one after the
other. Each table will have two rows. The first of the two rows will have
4 columns, the second row will contain only one column.

I'd like each table to use all of the available width between the left and
right page margins, which are set at 60 points each. I want the first
three columns of the first row of each table to have a specific fixed
width. I'd like the fourth column of the first row of each table to get
whatever space is left over after the first three columns have been
written. The second row of each table should get the full available width
between the left and right page margins.

This is my current sub for creating the table and setting the desired
column widths:

=================================================================
Sub createTable()

'Create a two row, four column table.
Set newTable = ActiveDocument.Tables.Add(Range:=Selection.Range,
NumRows:=2, NumColumns:= _
4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed)

'Format the table. Set the column widths and merge the cells on the second
row into a single cell.
With newTable
If .style <> "Table Grid" Then
.style = "Table Grid"
End If
.AllowAutoFit = False
.PreferredWidthType = wdPreferredWidthPercent
.PreferredWidth = 100
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = False
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = False
'Set widths of columns (in inches)
.Columns(1).Width = InchesToPoints(1.1)
.Columns(2).Width = InchesToPoints(1.2)
.Columns(3).Width = InchesToPoints(1.7)
.Columns(4).Width = InchesToPoints(3.2)
'Merge the cells on the second row into one cell
.Rows(2).Cells.Merge
End With

'Make sure table isn't split across pages.
Selection.Tables(1).Select
With Selection.ParagraphFormat
.KeepWithNext = True
End With


End Sub
=================================================================

This _almost_ does what I want but there are two things that I don't like:
a. "AutoFitBehavior:=wdAutoFitFixed" in the 'set' statement and
".AllowAutoFit = False" seem to contradict one another; the 'set' seems to
be saying that I should use AutoFit while the 'with' seems to turn it off.
Should the 'set' be written differently to prevent the columns from ever
having had the ability to resize themselves?
b. I want the widths of the first 3 columns on the first row of each table
to be fixed at the sizes shown. I want the 4th column to automatically get
whatever space is left between the 3rd column and the right margin without
first having to calculate an actual length in inches. I thought that by
leaving the width of the 4th column unspecified, it would get all of the
remaining space but, in fact, it gets quite a bit less than the available
space, with the result that the table is narrower than it needs to be and
the right margin is much bigger than I want in the area where the tables
are written. How can I get that behavior?

I've looked in the Help but I must be searching on the wrong keywords
because I can't find a clear answer to either problem.

I was going to do some 'trial and error' with the width of the 4th column.
I erased the line after the "=" on the line that sets column 4's width but
the other options never appear. I was hoping to see something like
"UseRemainingSpace". Shouldn't I be getting a list of options when I do
that? If yes, I must have something wrong in my VBE settings; can someone
tell me what I need to turn on?

If you can help me solve these last two problems, I think my document will
be absolutely perfect instead of just 98%.

--
Rhino




.

Relevant Pages

  • Need help sizing table columns correctly
    ... right page margins, which are set at 60 points each. ... Set the column widths and merge the cells on the second ... .ApplyStyleHeadingRows = True ...
    (microsoft.public.word.vba.general)
  • Re: Need help sizing table columns correctly
    ... type" section in the With area, you will see a couple of table cells. ... then figure out what needs to change in my existing macro to match the new ... Set the column widths and merge the cells on the ... .ApplyStyleHeadingRows = True ...
    (microsoft.public.word.vba.general)
  • Re: Need help sizing table columns correctly
    ... Do you mean that I should record this with the macro recorder and then ... Set the column widths and merge the cells on the ... .ApplyStyleHeadingRows = True ...
    (microsoft.public.word.vba.general)
  • Re: Need help sizing table columns correctly
    ... However, I want to do this work via a macro in this case, ... type" section in the With area, you will see a couple of table cells. ... Set the column widths and merge the cells on the ... .ApplyStyleHeadingRows = True ...
    (microsoft.public.word.vba.general)
  • Re: Internet Explorer renders wrong only the first time
    ... my own User Stylesheet the column widths shrunk and the bubbles turned to ... giving your bubbles a square shape on non-white backgrounds. ... The easiest way to cater for all browsers is to use the lowest common ... All the cells containing bubbles should be square. ...
    (microsoft.public.windows.inetexplorer.ie6.browser)