table challenge

[krs1105]

The picture posted at the link below shows a table that I would like
to create. This file is a picture so it cannot be revised.
Specifically, I would like to reproduce the way that the numbers on
the left line up with the lines that separate rows on the right. I do
not want the numbers to align with the center of the cells.

thanks
Ken

http://tinyurl.com/crk8mb

 

[Suzanne S. Barnhill]

Create twice the number of rows you need and merge them alternately in the
first column and the rest (or merge only the first column and apply borders
selectively to the rest).

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
http://word.mvps.org

 

[Doug Robbins - Word MVP]

Use the following macro:

Dim dtable As Table
Dim i As Long, j As Long
Set dtable = ActiveDocument.Tables.Add(Selection.Range, 36, 21)
dtable.Select
With Selection.Borders(wdBorderTop)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
With Selection.Borders(wdBorderLeft)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
With Selection.Borders(wdBorderBottom)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
With Selection.Borders(wdBorderRight)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
With Selection.Borders(wdBorderVertical)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
With Selection.Borders(wdBorderHorizontal)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
With dtable
For i = 1 To .Rows.Count Step 2
For j = 2 To .Columns.Count
With .Cell(i, j)
.Borders(wdBorderTop).Visible = False
End With
Next j
Next i
For j = 2 To .Columns.Count
With .Cell(i, j)
.Borders(wdBorderBottom).Visible = False
End With
Next j
j = 210
For i = 1 To .Rows.Count - 1 Step 2
With .Cell(i, 1)
.Range.Text = j
.VerticalAlignment = wdCellAlignVerticalCenter
End With
j = j - 10
Next i
For i = 1 To .Rows.Count - 1 Step 2
.Cell(i, 1).Merge Mergeto:=.Cell(i + 1, 1)
Next i
End With


--
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