I want to number the cells in a table so that the numbers
first ascend vertically down columns, then across rows,
as opposed to horizontally across rows first, then down
columns. For example, if there is a table with 3 columns
and 4 rows, and I have a list of 11 items, I want item 1
in row 1, column 1; item 2 in row 2, column 1; item 3 in
row 3, column 1; item 4 in row 1, column 2; etc.
I want to do this in a table, not with "newspaper" style
Thanks in advance for any help.
There are several ways to achieve what you want. Here's one.
You'll be creating fields, and it's often useful to be able to see what's a field and what's not. So, Tools > Options > View and set
Field Shading to "Always". This will give a grey background to your fields. The grey background won't print. You can go back and
turn this off if you don't like it.
Ctrl-F9. Between the brackets, type SEQ David (Note that "David" can be any string you like.)
Press F9 to update.
You'll see a 1, shaded.
Repeat whenever you want the next number in the sequence. If you get bored doing that, make an AutoText so you can apply the number
easily. Choose the whole of the grey field, choose Insert > AutoText and use that to create an AutoText. You can then use Tools >
Customize to assign the AutoText to a shortcut key or a toolbar button.
Note that these numbers don't update automatically. Click on one of them and press F9 to update. Ctrl-a and then F9 to update all of
them. In any case, make sure that Tools > Options > Print has *ticked* "Update Fields".
If you don't like that method, here's another one. Use the List Number style for all your numbered paragraphs. If you don't like the
default numbering style, modify it as described in the following page (it talks about heading styles, but the principles are exactly
How to create numbered headings or outline numbering in your Word Document
Hope this helps.
"David Cunningham" <dav...@co.skagit.wa.us> wrote in message news:07d701c2cbbf$60f53570$8af82ecf@TK2MSFTNGXA03...
A one-column table in a section with 3 "newspaper" style columns would be
the only simple and automatic method I can think of.
For the table lines to fit together nicely, you'd need to set the width of
the table equal the width of the "newspaper" column, and the left indent of
the table equal to the left cell margin (Table > Table properties, table
tab > Options).
Any reason why you don't want to use "newspaper" columns?
Thanks for your reply. I'm still trying your second
option, but option one didn't work - numbering still
ascends across the row first, then down the column.
Perhaps I misunderstood something?...
That seemed to work acceptably. Why no newspaper
columns?... Maybe just stubborn, but you used to be able
to do this (could that have been in an OLD WordPerfect?)
and I think tables offer the greatest formatting control.
This should number the cells the way you want. Doesn't matter if the
cells are filled in or blank. Start anywhere within the table to be
In case you're not that familiar with macros, to install one: After
copying macro from the thread, on a blank doc press Alt-F8. In the
'Macro name' box where your cursor is, type in the new macro name. In
the 'Macros in' box make sure Normal.dot is selected. Then click
Create; it takes you straight to the new macro code.
Remove the empty code that's already there and paste in the copied
macro, making sure there's only one Sub line at the start, with the
macro name followed by (), and one End Sub line at the end. Where you
get two red lines, take out the break between them. Press Ctrl-S to
save. Alt-q takes you back to the document. Whole thing takes less
than a minute.
To run macro: Alt-F8, scroll down to macro, click Run.
If Not Selection.Information(wdWithInTable) Then
MsgBox "Must be in a table. Quitting.", , "Not Within a Table"
Application.ScreenUpdating = False
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="H"
Do While Selection.Information(wdWithInTable)
Dim k As Integer, R As Range
Dim T As Table, Col As Column, C As Cell, CellEmpty As Boolean
Set R = Selection.Range
R.Start = ActiveDocument.Range.Start
Set T = ActiveDocument.Tables(R.Tables.Count)
k = 0
For Each Col In T.Columns
For Each C In Col.Cells
CellEmpty = False
If C.Range.Characters.Count = 1 Then CellEmpty = True
If Not CellEmpty Then
.MoveLeft Unit:=wdCharacter, Count:=1,
k = k + 1
.Font.Bold = False
.Font.Italic = False
.Font.Color = wdColorAutomatic
If CellEmpty Then
.Text = k & "."
.Text = k & "." & vbTab
If Not CellEmpty Then
Selection.GoTo What:=wdGoToBookmark, Name:="H"
I can't resist writing table-numbering macros. Thanks for enabling
the addiction. Holler if it doesn;t work. - Bruce
"David Cunningham" <dav...@co.skagit.wa.us> wrote in message news:<022b01c2cbc8$351065c0$d6f82ecf@TK2MSFTNGXA13>...