Reply
 
Thread Tools Display Modes
  #1   Report Post  
Posted to microsoft.public.word.tables
krs1105 krs1105 is offline
external usenet poster
 
Posts: 1
Default 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   Report Post  
Posted to microsoft.public.word.tables
Suzanne S. Barnhill Suzanne S. Barnhill is offline
external usenet poster
 
Posts: 33,624
Default 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   Report Post  
Posted to microsoft.public.word.tables
Doug Robbins - Word MVP Doug Robbins - Word MVP is offline
external usenet poster
 
Posts: 8,832
Default 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



Reply
Thread Tools
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Challenge - How do I make a bullet style where the first word isbold? Durand Microsoft Word Help 2 December 30th 07 12:34 AM
Word 07 Challenge - Line Creep Howard Cross New Users 5 June 28th 07 07:25 PM
A real challenge For Word Gurus... Raffi Bearmant Formatting Long Documents 1 September 28th 06 02:45 PM
Small caps in numbering: A challenge Brian Mac G Microsoft Word Help 1 June 21st 06 02:08 AM
how do I make a checklist has dots between the challenge and respo v1rotate Microsoft Word Help 2 April 13th 06 10:01 PM


All times are GMT +1. The time now is 10:48 PM.

Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"