View Single Post
  #4   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 Newbie Question on on tables

See the article "What do I do with macros sent to me by other newsgroup
readers to help me out?"
http://www.word.mvps.org/FAQs/Macros...eateAMacro.htm


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

wrote in message
...
On Mon, 4 Dec 2006 22:43:17 +0100, "Doug Robbins - Word MVP"
wrote:

If you run a macro containing the following code, it will insert that
sequence of numbers into the cells in the first column of the table:

Dim i As Long, j As Long, k As Long
Dim atable As Table
Set atable = Selection.Tables(1)
k = 1
For i = 1 To 123 Step 3
For j = 1 To 3
atable.Cell(i + j - 1, 1).Range.InsertBefore k & Chr(64 + j)
Next j
k = k + 1
Next i
k = 42
For i = 124 To 201 Step 6
For j = 1 To 6
atable.Cell(i + j - 1, 1).Range.InsertBefore k & Chr(64 + j)
Next j
k = k + 1
Next i



Mr Robbins ,

Thank you for the prompt reply.

However , I know nothing about running macros as I'm afraid I've
never used them before.

I have Word 2000 and have read the Help file which tells me to go to
Tools Macro Record New Macro but that's as far as I've got.

Could you tell me what to do after that, please ?

I would like to print out a page with the symbols mentioned running
down the left hand side of the page with each symbol , 1A,1B ...etc
separated from each other with a line across the page.

regards,

B.N.