[[email protected]]

I would like to print out a table which has the sequence in descending
alphabetical order in the first column as follows:-

1A
1B
1C

2A
2B
2C

3A
...etc until

41C

Thereafter , I would like the sequence to go:-
42A
42B
42C
42D
42E
42F

43A
....etc until
54F

Could anyone tell me how to arrange this , please ?


B.N.

[Doug Robbins - Word MVP]

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


--
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
...
I would like to print out a table which has the sequence in descending
alphabetical order in the first column as follows:-

1A
1B
1C

2A
2B
2C

3A
..etc until

41C

Thereafter , I would like the sequence to go:-
42A
42B
42C
42D
42E
42F

43A
...etc until
54F

Could anyone tell me how to arrange this , please ?


B.N.

[[email protected]]

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.

[Doug Robbins - Word MVP]

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.

[[email protected]]

On Tue, 5 Dec 2006 05:45:35 +0100, "Doug Robbins - Word MVP"
wrote:

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

Thanks, I'll have a look.

B.N.

[[email protected]]

On Tue, 05 Dec 2006 09:50:48 +0000, wrote:

On Tue, 5 Dec 2006 05:45:35 +0100, "Doug Robbins - Word MVP"
wrote:

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

Thanks, I'll have a look.

B.N.

Following the advice given in the URL above I arrive with the
following:-



Sub Macro1()
'
' Macro1 Macro
' Macro created 05/12/2006 by Bill Nelson
'

End Sub

Again following the advice as above , I deleted the two lines between
"Sub Macro1() " & "End Sub" into which I then pasted your code given
in your post after removing all the "" symbols which preceeded each
line.

I thus arrived at the following :-



Sub Macro1()


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


End Sub

When I now attempt to run this -( by clicking F5 - is this correct ? )
- I get the error :-
"Run-time error '5941' the requested member of the collection does not
exist "

If I now click "DEBUG" I get the line "Set atable = Selection Tables
(1) " highlighted in yellow.

I'm afraid I don't understand any of this !

B.N.