If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
table challenge
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 |
#2
|
|||
|
|||
table challenge
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 "krs1105" wrote in message ... 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 |
#3
|
|||
|
|||
table challenge
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 "krs1105" wrote in message ... 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 |
Thread Tools | |
Display Modes | |
|
|